If that's the case, just use ..

If WorksheetFunction.CountA(Cells) = 0 Then
msgbox "empty"
Else
msgbox "has data"
End If

The way you've shown, data can be in A1 and give a false positive.

HTH

--
Regards,
Zack Barresse, aka firefytr


"Ikaabod" wrote in
message ...

I just realized that you might have been asking if the entire worksheet
is empty... one way to check is the following code:

Sub test()
If ActiveSheet.UsedRange.Cells.Address = "$A$1" And
ActiveSheet.Range("A1").Value = "" Then
MsgBox "Clear"
Else
MsgBox "Not Clear"
End If
End Sub


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile:
http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=537027