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 vote156 views1 answer
Vba get application version
VBA
0 vote156 views1 answer
Group controls programmatically vb
VBA
0 vote106 views1 answer
Vbide vbproject reference
VBA
1 vote164 views1 answer
Excel date to unix timestamp
VBA
0 vote198 views1 answer
Visual basic cmd
VBA
25 votes292 views2 answers
Excel vba folder exist
VBA
1 vote149 views1 answer
Change the first item in a queue vb.net
VBA
5 votes172 views1 answer
Vba low byte from INTEGER
VBA
0 vote140 views1 answer
Excel protect cells with formulas
VBA
1 vote181 views1 answer
Excel vba convert text YYYYMMDD to date
VBA