Code:
--------------------
For Each c In Sheets("Inventory").Range("B2:B12")
If c.value < "" Then
-your code here-
End if
Next c

--------------------


--
Excelenator


------------------------------------------------------------------------
Excelenator's Profile: http://www.excelforum.com/member.php...o&userid=36768
View this thread: http://www.excelforum.com/showthread...hreadid=572257