Make sure a worksheet is open

[Zanyar.Sigarchy]

I am creating a macro that needs a worksheet to be open in order to
work, therefore I need to make sure that there is at least one
worksheet open otherwise my code crashes.

Here is how I am checking now, but this gives an error:

If Worksheets.Count < 1 Then
MsgBox gsERR_FILE_NOT_FOUND, vbCritical
CloseMyMacro
End If

 

[Karl E. Peterson]

I am creating a macro that needs a worksheet to be open in order to
work, therefore I need to make sure that there is at least one
worksheet open otherwise my code crashes.

Here is how I am checking now, but this gives an error:

If Worksheets.Count < 1 Then
MsgBox gsERR_FILE_NOT_FOUND, vbCritical
CloseMyMacro
End If

I've used this, with some success:

If Not ActiveWindow Is Nothing Then