For every cell below ACTIVECELL meeting criteria, run a sub, then continue when its done

[ks100]

In plain English:

dim MEMORIZEDCELL as string
MEMORIZEDCELL = (the active selected cell)


For each cell below MEMORIZEDCELL (but in the same column):

If the cell contains Interior.Color = RGB(191, 191, 191)

THEN end this procedure

elseIf the cell is NOT blank

THEN skip to the cell below it.

elseIf the cell IS blank, select it and call sub "myothersub".


Continue the "For Each" procedure above after "myothersub" is finished running

[daffodil11]

Perhaps:

Please Login or Register  to view this content.