NetWave182

I think you need to change your code to:


For Each cell In MyRange2
If cell.Value 0 Then

x = x + 1<<<<<<< Move to here.....
myrange.Offset(0, x) = cell.Value

End If
Next cell


Charle

--
Charle
-----------------------------------------------------------------------
Charles's Profile: http://www.excelforum.com/member.php...nfo&userid=601
View this thread: http://www.excelforum.com/showthread.php?threadid=27579