You can use also the following function
Public Function IsSheetExists(sname) As Boolean
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err = 0 Then IsSheetExists = True _
Else IsSheetExists = False
End Function
have fun
Sandra
