The function below should do what you need.
Dave.
Function SheetExists(strSheetName As String) As Boolean
Dim shtTemp As Worksheet
SheetExists = False
For Each shtTemp In ActiveWorkbook.Sheets
If shtTemp.Name = strSheetName Then SheetExists = True
Next shtTemp
End Function