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 vote134 views1 answer
Remove last 8 characters from string vb
VBA
0 vote172 views1 answer
Vba excel parser xml
VBA
0 vote156 views1 answer
Vba cell all borders
VBA
1 vote142 views1 answer
Sort using vba
VBA
0 vote87 views1 answer
Vbide vbproject reference
VBA
0 vote143 views1 answer
Vbs run with cscript
VBA
0 vote152 views1 answer
Excel vba move down to next visible cell
VBA
1 vote77 views1 answer
Vba Remove Case Sensitivity
VBA
3 votes131 views1 answer
Vba request json
VBA
1 vote120 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA