If you dont want to use a loop statement you can use,
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlank s).Value = "First
Value"
Now this will put that first value in all blank cells for the entire
used range of the active sheet. If you need to be more specific to a
column or row, just change the first part.
--
jtp
------------------------------------------------------------------------
jtp's Profile:
http://www.excelforum.com/member.php...o&userid=21132
View this thread:
http://www.excelforum.com/showthread...hreadid=569543