Check if Sheet exists, run macro if it does, if not then continue rest of code.

[dman78]

Hello and thanks in advance.

Quick question, I hope!

I have code that I want to check if a sheet exists, and if it exists a sub macro is run. But if there is no worksheet with that name then I want to continue the code.

I am having trouble with the part where if there is no worksheet to let the code run as it was running before this check.

 Check to see if "CC Date" sheet exists; if yes then run Clean_Poes_Data

    For Each ws In Worksheets
        If ws.Name = "CC Date" Then Call Clean_POES_DATA
        Next

 

[Fluff]

Rather than looping through the sheets, you can use

If Evaluate("isref('CC DATE'!A1)") Then Call Clean_POES_DATA

 

[rlv01]

Alternatively

    'Check to see if "CC Date" sheet exists; if yes then run Clean_Poes_Data
    For Each ws In Worksheets
        If ws.Name = "CC Date" Then
            Clean_POES_DATA
            Exit For
        End If
    Next ws

 

[dman78]

Alternatively

    'Check to see if "CC Date" sheet exists; if yes then run Clean_Poes_Data
    For Each ws In Worksheets
        If ws.Name = "CC Date" Then
            Clean_POES_DATA
            Exit For
        End If
    Next ws

Rather than looping through the sheets, you can use

If Evaluate("isref('CC DATE'!A1)") Then Call Clean_POES_DATA

Thanks to you both! That was fast.

 

[Fluff]

Does that solve your problem?

 

[dman78]

Does that solve your problem?

Yes it does, thank you! I've marked this thread as "Solved"

 

[Fluff]

Glad we could help & thanks for the feedback.