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?