Close workbook if sheet does not exist

[bptaw]

I have set up a workbook with a password that expires after a set date. After that date all bar one worksheets are also deleted. I want the workbook to close if a specific sheet cannot be found (I get vba errors as it looks for the deleted sheets) , or otherwise proceed to show the login.

 

[MARK858]

Maybe try on a test workbook the below as an example...

Sub Saveit()
    Dim sht1 As String
    sht1 = "Sheet4" ' change sheet name to suit
   
    If Not Evaluate("isref('" & sht1 & "'!A1)") Then
        ThisWorkbook.Close False
    Else
        MsgBox "The sheet does exist"  ' whatever else you want goes here
    End If

End Sub