Range Syntax for Script

[malisauskas]

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?

 

[Ron de Bruin]

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

 

[Ron de Bruin]

This example is for the SelectionChange event
If you use it in a normal macro chnage target to ActiveCell

 

[MikeA]

This example is for the SelectionChange event
If you use it in a normal macro chnage target to ActiveCell

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm







- Show quoted text -

Great, thanks Ron.