Application.ScreenUpdating = False
Sheets("Sheet2").Select
If WorksheetFunction.CountA(Cells) = 0 Then
MsgBox ("Sheet2 is blank.", vbOKOnly + vbInformation)
End If
End Sub
Sub CheckForBlankWS()
Application.ScreenUpdating = False
Dim wBook As Workbook
Dim wSheet As Worksheet
Set wBook = ActiveWorkbook
For Each wSheet In wBook.Worksheets
With wSheet
If WorksheetFunction.CountA(Cells) = 0 Then
MsgBox (wSheet.Name & " is blank.", vbOKOnly + vbInformation)
End If
End With
Next wSheet
End Sub