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 vote294 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote303 views1 answer
Discern between file and folder given path vb.net
VBA
22 votes471 views1 answer
Xlvba check for folder
VBA
0 vote328 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
1 vote375 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote315 views1 answer
Replace spaces with underscores vbnet
VBA
3 votes311 views1 answer
Vba folderexists
VBA
2 votes315 views2 answers
Vba code to remove duplicates from a column
VBA
5 votes365 views1 answer
Excel-vba get integer high byte
VBA
0 vote344 views1 answer
Sort dictionary by key vba
VBA