Worksheet exists

[Guest]

Is there an easy way to find out if a sheet with a particular name already
exists in a workbook?

Thanks, Kaval

 

[JE McGimpsey]

One way:

Const sNAME As String = "ParticularName"
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(sNAME)
On Error GoTo 0
If Not ws Is Nothing Then
MsgBox "Worksheet " & sNAME & " exists"
Else
MsgBox "Worksheet " & sNAME & " doesn't exist"
End If

 

[Stuart]

On Error Resume Next
Sheets("MySheet").Select
If Err Then
MsgBox "MySheet does not exist"
End If
On Error GoTo 0