Function to test if excel sheet exists
The function below checks if an excel sheet exists with given name. The function works both with Worksheets and Charts sheets. It is included in Excel VBA under both Worksheet and Chart in module modSheetProcedures which is automatically inserted when the function is selected.
Public Function SheetExists(strSheetName As String, Optional wbWorkbook As Workbook) As Boolean If wbWorkbook Is Nothing Then Set wbWorkbook = ActiveWorkbook 'or ThisWorkbook - whichever appropriate Dim obj As Object On Error GoTo HandleError Set obj = wbWorkbook.Sheets(strSheetName) SheetExists = True Exit Function HandleError: SheetExists = False End Function