checking if worksheet is blank

[Tommi]

Hello!

I would like to know how to check if worksheet is blank.

Thanks!
Tommi

 

[J.E. McGimpsey]

On way:

Dim blank As Boolean
blank = Application.CountA(Sheets("Sheet1").Cells) = 0