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 vote394 views1 answer
Wpf dark title bar
VBA
0 vote319 views1 answer
Vba round to 2 decimals
VBA
0 vote366 views1 answer
Winforms dark title bar
VBA
0 vote298 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote299 views1 answer
Excel vba center userform
VBA
3 votes333 views1 answer
Vba double quote
VBA
3 votes299 views1 answer
Excel vba read registry key value
VBA
0 vote335 views1 answer
Excel vba copy range with filter
VBA
8 votes360 views1 answer
Vba make integer
VBA
0 vote342 views1 answer
Vbnet round to nearnest thousand
VBA