Dim c as Range
for each c in Range("G7:P300")
c.select
next c
--

Regards,
Nigel




"Patrick C. Simonds" wrote in message
...
I am looking for a one time use macro which will select and then deselect
each cell in the range G7:P300. I need this to trigger a worksheet change
macro in each of the cells. I can do this manually by selecting the cell
then clicking in the formula bar then selecting the next cell. But that is
close to 3000 cells and would be very time consuming.