One way -

Sub test()
Dim x As Long
x = Application.CountA(Selection)

MsgBox "Non-blank cells : " & x
End Sub

Regards,
Peter T

"al007" wrote in message
ups.com...
Hi,
I'm looking for a macro which will pop up a message confirming me that
my selection contains cells with no formulas & no constants i.e are
completely blank.
Thxs beforehand