Thanks a lot, Tom. Incidentally, I saw this other option - formulaR1C1,
and used it. I have one more question though - why is it that I have to
define SHD specifically into each of the cells address in:

SHD.Range(SHD.Cells(i, 1), SHD.Cells(i, 9)) = "********"

Thanks,

Joe.