why the outer loop?

nested ifs are probably slowing this down.
Try using select case statements instead of many ifs.

Is there no way of combining these statements...
If Cells(r, c).EntireRow.Hidden = False Then
If Cells(r - 3, 1).Value = "Y" And Cells(r - 3, 2).Value = 1 Then
If CloseStk = 0 Then

try inserting the data to an array, process the data in memory and
write it back?

Many ways of solving the same problem. Would probably be easier to
solve with a sample dataset.

thx,
Matt.


--
MattShoreson
------------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...fo&userid=3472
View this thread: http://www.excelforum.com/showthread...hreadid=536290