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 vote185 views2 answers
Checking and changing system volume vb.net
VBA
0 vote171 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote163 views1 answer
Find days in month vba
VBA
1 vote161 views1 answer
Excel vba compare 2 rows
VBA
0 vote157 views1 answer
Vba len variant
VBA
2 votes170 views2 answers
Vba code to remove duplicates from a column
VBA
1 vote171 views1 answer
Vbscript convert ascii code to character
VBA
4 votes165 views1 answer
Excel vba how to reset usedrange
VBA
0 vote184 views1 answer
How to make a a msgbpx in vbs
VBA
0 vote162 views1 answer
Type excel.application is not defined vb
VBA