Note: you can use this if your range is not one area
If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then

See also
http://www.rondebruin.nl/calendar.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message oups.com...
I currently have a script that looks like this...............

If ActiveCell.Address(False, False) = "K7" Then OpenCalendar
.
.
.
.
.
.


If ActiveCell.Address(False, False) = "K70" Then OpenCalendar


How do I enter for it to look at the range instead of having to type
a
line for each of the cells in the range?