Test if worksheet is present

[davefish]

I have two worksheets that are created during calculations that need to be deleted after processing by Macro. Deletion need to be carried out when a Form control button is activated, but when the sheets are not present, as they are in some instances I get errors.

The code I am using is :-


Function TheSheetExists() As Boolean
TheSheetExists = False
On Error GoTo NoSuchSheet
If Len(Sheets("Customer Quote").Name) > 0 Then
TheSheetExists = True
Exit Function
End If
NoSuchSheet:
End Function

Any Ideas would be welcome

 

[SkipVought]

hi Dave,

A function should be multifunctional, not saddled with a specific value in most cases.

In this case, supply a string value to test against all sheets in the workbook...

Function TheSheetExists(sName As String) As Boolean
    Dim ws As Worksheet
    
    TheSheetExists = True
    
    For Each ws In Worksheets
        If sName = ws.Name Then Exit Function
    Next
    
    TheSheetExists = False
End Function

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[davefish]

Hi Skip,

I tried the code but must have missed something. If I have the function in a public sub , then without refrencing the specific worksheet, how do I detect it missing?

 

[SkipVought]

You must supply a name for the function to test, like supply "Customer Quote" to the function.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}