You should take a good look at Don's suggested code. It does the same thing
that you are doing but is more efficient because it only uses the range where
you have data. Your code will chech all 256 cells of each row for each
iteration.

"Robert H" wrote:

thanks J, that fixed my code

On Jan 31, 5:32 pm, JLGWhiz wrote:
Try changing: Set curCell = Cells(1 & n)
To: Set curCell = Cells(1, n)