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 vote291 views1 answer
Return na vba
VBA
0 vote290 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote273 views1 answer
Vbs
VBA
1 vote281 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote283 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote292 views1 answer
Excel vba remove formatting from cell
VBA
0 vote308 views1 answer
Set datetimepicker value to null vb
VBA
0 vote276 views1 answer
Vb net check if file exists
VBA
-1 vote295 views1 answer
VBA check if a cell contains a letter or string
VBA
5 votes322 views1 answer
Vba low word from Long Integer
VBA