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 vote118 views1 answer
Convert unix to date vba
VBA
0 vote133 views1 answer
Open file dialog in vb.net
VBA
0 vote128 views1 answer
Prive sub enter clicked vb
VBA
1 vote133 views1 answer
Vba loop through files in folder
VBA
0 vote139 views1 answer
Excel vba set cell value to empty
VBA
0 vote116 views1 answer
Vba file size
VBA
0 vote120 views1 answer
Vba get text file content
VBA
0 vote122 views1 answer
Excel vba protect sheet
VBA
1 vote143 views1 answer
Extract the second word in a text in excel
VBA
0 vote131 views1 answer
Excel vba DisplayAlerts
VBA