Check if sheet exists vba

[jamesexcel1970]

Hello Team.

Wanted to check if particular sheet exists before i processed my code as my entire code is based on that sheet..hope it make sense..Sheet may be deleted so.

Cheers!

 

[Monty]

Try This...

Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0
End Function

 

[jamesexcel1970]

Hey Champ..

You are quick as expected!.

Sorry not so clear as iam not aware of functions...May i know how to call this.

Cheers!

 

[Monty]

James...You call this way...Change sheet name as per your requirement.

Sub test()
If Not WorksheetExists("Sheet10") Then
        MsgBox "Sheet not available", vbExclamation, "Error"
        Exit Sub
End If
End Sub

 

[jamesexcel1970]

That's great.. Perfect

Just help with the below one..not good with vba though.

Sub test()
If Not WorksheetExists("Sheet10") Then
        MsgBox "Sheet not available", vbExclamation, "Error"
        Exit Sub
else
< Proced with the code>
End If
End Sub

 

[Monty]

Yes

 

[jamesexcel1970]

Thank you.

Cheers!

 

[Marc L]

Hi !

You can also directly use worksheet function ISREF !
See samples in threads of this forum …
​

 

[Hui]

That's great.. Perfect

Just help with the below one..not good with vba though.

Sub test()
If Not WorksheetExists("Sheet10") Then
        MsgBox "Sheet not available", vbExclamation, "Error"
        Exit Sub
else
< Proced with the code>
End If
End Sub

James

Although what you have posted will work, the else is superfluous

Sub test()
If Not WorksheetExists("Sheet10") Then
        MsgBox "Sheet not available", vbExclamation, "Error"
        Exit Sub
End If

< Proced with the code>

End Sub

will do what you want

 

[Arpanakumar]

Hui

Thank you so very much!