Sub No_Empty_Cells()
If ActiveCell.Value < "" Then MsgBox ActiveCell.Value
End Sub
--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile:
http://www.excelforum.com/member.php...o&userid=30679
View this thread:
http://www.excelforum.com/showthread...hreadid=538806