Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Sub test()
If isemptysheet Then
MsgBox "empty"
Else
MsgBox "not empty"
End If
End Sub
Function isemptysheet() As Boolean
If ActiveSheet.UsedRange.Address = "$A$1" _
And [A1] = "" Then
isemptysheet = True
Else
isemptysheet = False
End If
End Function