Hi all,

I have this sub:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

It works nicely when I double click in any row beneath row 1 on a cell in
any of the columns 5 or 45 or 72. It updates the rather complicated cell
comments of those three cells, it takes approximately 4 seconds.
I have some 600 rows. I use XP with Office 2k.

I want to execute what this sub does automatically from row 2 to row 600.
Automatically, because it is tedious and time consuming to double click 600
cells. Modifying this sub to execute it with a do loop is very difficult
(for me) because of all the "target stuff".

Is it possible to have this work one out of another sub like below (or
better, not like that because that won't work):

Sub easy()
rownumber=2
do until range(cells(rownumber,2),cells(rownumber,2))=""
range(cells(rownumber,45),cells(rownumber,45)).sel ect
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean) 'obviously this line won't work
rownumber=rownumber+1
loop
end sub

Jack Sons
The Netherlands