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 vote160 views1 answer
Vbnet check if number is even or odd
VBA
1 vote169 views1 answer
Export datagridview to excel vb.net
VBA
0 vote160 views1 answer
Vba array of integers
VBA
0 vote158 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
8 votes332 views1 answer
Excel vba make word from bytes
VBA
4 votes153 views1 answer
Excel vba check cell not empty
VBA
0 vote162 views1 answer
Refer to resource using string variable vb.net
VBA
1 vote151 views1 answer
Textbox find and replace vb
VBA
0 vote158 views1 answer
Vba leading zeros in string
VBA
0 vote155 views1 answer
Vb streamreader
VBA