If sheet exist.

[pedie]

Can someone please tell me where am i doing it wrong?
I know sheet exist but it keeps telling me it doesnt.
Thanks.

[/FONT]
[FONT=Courier New]Private Function SheetExists(sName) As Boolean
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Worksheets(sName)
If Error = 0 Then SheetExists = True Else SheetExists = False
End Function
Sub tryyy()
Dim sName As String[/FONT]
[FONT=Courier New]sName = "OK"[/FONT]
[FONT=Courier New]If Not SheetExists(sName) Then
MsgBox "Nope"
Else
MsgBox "Yes"
Sheets("OK").Select
MsgBox ActiveSheet.Name
End If
End Sub

 

[VoG]

Hi Pedie. This is better

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

 

[pedie]

Peter, thanks for checking that out for me. Works now.