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 vote333 views1 answer
Show unix time in vba
VBA
-1 vote361 views1 answer
Code for reading letters only in vb 6
VBA
0 vote338 views1 answer
Vba file chooser
VBA
0 vote337 views1 answer
Vba get application version
VBA
0 vote352 views1 answer
Date as number vb
VBA
0 vote329 views1 answer
Get current url vb.net
VBA
0 vote349 views1 answer
Vba remove last vbcrlf
VBA
0 vote338 views1 answer
String contins in vba
VBA
0 vote310 views1 answer
Excel vba milliseconds
VBA
1 vote356 views1 answer
Export datagridview to excel vb.net
VBA