Public Sub Test()
If WorksheetIsEmpty(Application.ActiveSheet) Then
MsgBox "Bladet är tomt"
Else
MsgBox "Bladet är inte tomt"
End If
End Sub