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 vote148 views1 answer
Vba extract filename from path
VBA
2 votes156 views1 answer
Excel vba check if string entirely alpha
VBA
5 votes175 views1 answer
Excel vba get user selected range
VBA
1 vote141 views1 answer
Textbox find and replace vb
VBA
0 vote155 views1 answer
Excel vba DisplayAlerts
VBA
2 votes143 views1 answer
Date format for ms chart vb.net
VBA
0 vote141 views1 answer
Excel vba center userform
VBA
2 votes152 views1 answer
Excel vba date to string conversion
VBA
0 vote146 views1 answer
VB Error Code BC30201
VBA
0 vote153 views1 answer
Discern between file and folder given path vb.net
VBA