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

4 votes157 views2 answers
Vba last row
VBA
0 vote224 views1 answer
Remove first character from string vb
VBA
0 vote230 views1 answer
Sendkeys vba selenium
VBA
-1 vote226 views1 answer
Code for reading letters only in vb 6
VBA
0 vote206 views1 answer
Excel vba range contains
VBA
3 votes202 views1 answer
Excel vba get the workbook full file name with path
VBA
4 votes214 views2 answers
Excel vba last column with data
VBA
25 votes541 views3 answers
String to date vb
VBA
1 vote193 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
0 vote232 views1 answer
Vba search string position
VBA