With Worksheets(1)
     If Application.CountA(.UsedRange) = 0 Then
        MsgBox "Рабочий лист «" & .Name & "» пустой" & vbCrLf & _
        "т.к. в этом листе все ячейки - пустые", vbInformation, ""
     Else
        MsgBox "Рабочий лист «" & .Name & "» непустой" & vbCrLf & _
        "т.к. в этом листе есть непустые ячейки ", vbInformation, ""
     End If
End With

MsgBox "Рабочий лист " & Worksheets(1).Name & _ 
IIf(Application.CountA(Worksheets(1).UsedRange) > 0, _ 
" непустой", " пустой"), vbSystemModal + vbInformation, ""