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

That doesn't work for some reason. Any other ideas?


/Møller

Originally Posted by c991257

That doesn't work for some reason. Any other ideas?


/Møller

Hi,

Please Login or Register  to view this content.

should work

---

Dang. I had a typo in it. This works excellent. Thanks.

/Møller

Originally Posted by Mallycat

You could use the Intersect method to determine if your cell is in the required range.

Please Login or Register  to view this content.