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

1 vote327 views1 answer
Change the first item in a queue vb.net
VBA
0 vote316 views1 answer
Vb window.minimize
VBA
0 vote331 views1 answer
Vba sort multiple columns
VBA
0 vote320 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote333 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote373 views1 answer
Vba search string position
VBA
0 vote325 views1 answer
Vb streamreader
VBA
8 votes384 views1 answer
Excel vba make integer
VBA
0 vote319 views1 answer
Vba text to general
VBA
0 vote342 views1 answer
Vba test optional argument
VBA