Event on select

[RonnieODIN]

Hi all,

I am trying to make an event happen when I select a cell. It works fine for a single cell.

I would like the event to happen if I select any cell in a certain column. I have tried the following:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = ("D:D") Then
        Kalender.Show
    End If
End Sub

It doesn't work though.

Any help will be appreciated.

Thanks,
-Ronnie.

[mrice]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Columns.Count = 1 And Target.Column = 4 Then
        Kalender.Show
    End If
End Sub

[RonnieODIN]

Thanks Martin,

This solved my problem. Thank you very much.