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 vote237 views1 answer
Excel vba center userform
VBA
13 votes305 views2 answers
Vba write text file
VBA
22 votes313 views1 answer
Excelvba check for directory
VBA
0 vote238 views1 answer
Excel vba scroll to cell
VBA
0 vote237 views1 answer
Excel R1C1 mode
VBA
0 vote229 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote228 views1 answer
Do until vb.net
VBA
0 vote229 views1 answer
Vb window.minimize
VBA
0 vote251 views1 answer
Vbscript check if string is empty
VBA
1 vote226 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA