Function ExistSheet(sName As String) As Boolean
On Error GoTo notSheet
If Worksheets(sName).Index > 0 Then ExistSheet = True
Exit Function

notSheet:
ExistSheet = False
End Function