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

5 votes239 views1 answer
Xl vba double quotes in string literal
VBA
22 votes528 views1 answer
Excel vba check if directory exists
VBA
0 vote224 views1 answer
Vba word pdf table to excel
VBA
0 vote238 views1 answer
Excel vba formatconditions range
VBA
0 vote229 views1 answer
Excel vba join variant array
VBA
5 votes262 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote284 views1 answer
Vba code for cutoff time
VBA
0 vote271 views1 answer
Vba vbcrlf chr
VBA
0 vote229 views1 answer
Hello world vb.net
VBA
0 vote231 views1 answer
Handling a click event anywhere inside a panel vb
VBA