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

3 votes170 views1 answer
Vba make long from two shorts
VBA
0 vote180 views1 answer
Vba excel do not recalculate before save
VBA
3 votes174 views1 answer
Excel vba get the workbook full file name with path
VBA
1 vote173 views1 answer
Excel vba last column in range
VBA
2 votes168 views1 answer
Excel vba check if key is in collection
VBA
0 vote184 views1 answer
Excel vba protect scenarios
VBA
5 votes182 views1 answer
Excel-vba get integer high byte
VBA
5 votes485 views1 answer
Vlookup vba
VBA
0 vote187 views1 answer
Excel delete ever other vba
VBA
0 vote168 views1 answer
Vba string start with
VBA