Worksheet exists

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

Thanks, Kaval

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

In article <03312BAA-6265-4E08-A721-2AA79D8B43F9@microsoft.com>,
"Kaval" <Kaval@discussions.microsoft.com> wrote:

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

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


"Kaval" <Kaval@discussions.microsoft.com> wrote in message
news:03312BAA-6265-4E08-A721-2AA79D8B43F9@microsoft.com...
> Is there an easy way to find out if a sheet with a particular name already
> exists in a workbook?
>
> Thanks, Kaval