VBA - event nie działą

Cześć,

mam pytanie dlaczego to nie działa:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C14:L18")) Is Nothing Then
            MsgBox "event"
        End If
    End If
End Sub

a to działa:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A1")) Is Nothing Then
            MsgBox "event"
        End If
    End If
End Sub

Czy problemem jest tutaj zakres komórek "C14:L18", które zostały scalone jako jedna? Nie działa też w takim przypadku samo "C14". Czy można to jakoś obejść?

Hej,
spróbuj może odpalić tylko kod takiej postaci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("C14:L18")) Is Nothing Then
            MsgBox "event"
       End If
End Sub

Pzdr... :)

@hurgadion: Ślicznie dziękuję za pomoc ;)