Worksheet_Selection Change Event

Hi

I'm fiddling with a worksheetwhere I want to be able to enter dates using a Calendar instead of punching in the dates manually.

The Calendar is working fine but I don't know how to make it work for a range instead a single cell.

I have the following code now:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A20" Then
Call OpenCalendar
End If
End Sub



I need to have this work for the range A20:B500 - how do I do that?

The code for the calendar I got from http://www.fontstuff.com/vba/vbatut07.htm
And the above code I got from http://www.fontstuff.com/mailbag/qexcel02.htm



/Møller
Excel 2003