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 vote162 views1 answer
Vba open report
VBA
0 vote159 views1 answer
Vb window.minimize
VBA
27 votes303 views2 answers
Vba check if file exists
VBA
4 votes174 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
4 votes166 views2 answers
Vba create folder if not exist
VBA
0 vote161 views1 answer
Vba line feed
VBA
0 vote166 views1 answer
Menus act like radio buttons vb.net
VBA
1 vote107 views1 answer
Ms access open form to new record
VBA
0 vote160 views1 answer
Vbnet chart make 0 gridline line different color
VBA
32 votes311 views2 answers
Excel vba column letter
VBA