Call Macro from more then 1 column

[StartingOut]

Hi, I have this code to call the calendar when a cell in column "A" is selected but I want it to call the calendar when a cell in column A or D is selected. Seams simple but I can't get it to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 or 4 Then
Call OpenCalendar
End If

 

[njimack]

If Target.Column = 1 or Target.Column = 4 Then

 

[StartingOut]

Simple, thanks
I am so ashamed

 

[njimack]

Simple, thanks
I am so ashamed

Don't be, we were all beginners once upon a time.