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 vote229 views1 answer
Tester si une case est vide vba
VBA
0 vote214 views1 answer
Vba run command
VBA
0 vote219 views1 answer
Vba search string position
VBA
0 vote205 views1 answer
Vba html document reference
VBA
0 vote181 views1 answer
Excel autofilter vba
VBA
0 vote148 views1 answer
How to make a if statement with vbs
VBA
0 vote216 views1 answer
How to mount floppy disks in vb.net
VBA
3 votes208 views1 answer
Vba double quote
VBA
0 vote197 views1 answer
Vbscript Trim
VBA
0 vote194 views1 answer
Vba exit while
VBA