Vba dropdown event

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim checkTarget As Range
    Set checkTarget = Application.Intersect(Target, Range("my_named_range"))
    If checkTarget Is Nothing Then
        Debug.Print "not active range, exit"
    Else
        MsgBox "success"
    End If

End Sub

Source: sebastianviereck.de

Similar codes

0 vote245 views1 answer
Vba sort the data Z to A
VBA
0 vote232 views1 answer
Vba len variant
VBA
0 vote220 views1 answer
Vba code to open a file with login rights
VBA
0 vote239 views1 answer
Remove series name from legendvbnet
VBA
0 vote177 views1 answer
Vba set vs dim
VBA
1 vote234 views1 answer
Excel date to unix timestamp
VBA
0 vote232 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote231 views1 answer
Excel protect cells with formulas
VBA
1 vote244 views2 answers
Get all column names from excel vba
VBA
0 vote250 views1 answer
Vba open report
VBA