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 vote208 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote229 views3 answers
Write to text file vb.net
VBA
0 vote240 views1 answer
Vba integer to double
VBA
0 vote218 views1 answer
Vba html document reference
VBA
0 vote219 views1 answer
Vbnet check if string is only numbers
VBA
1 vote216 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote217 views1 answer
Vba change named range address
VBA
0 vote207 views1 answer
Remove frist letter from string vbnet
VBA
8 votes238 views1 answer
Excel vba determine number of elements in a 2D array
VBA
4 votes210 views2 answers
Vba array length
VBA