Need code for "if sheet exist, do certain code; if not, stop this macro"

[dener123]

Hey guys!

I need a code that determines what to do when sheet name "Jan" exists;

If exists; select sheet "Jan" and run certain code.
If it does not exist; stop this macro.


Thank you

 

[Micron]

Off the top of my head, perhaps

Dim sht as sheet

For each sht in thisworkbook.sheets
    If sht.name = "Jan" then
        do something
    Else
        exit sub
next

Use worksheets (not sheets) if you want to skip chart sheets.

 

[Micron]

I was in a hurry to go out. That is not correct as it will exit as soon as it encounters one sheet that is not named "Jan"

For each sht in thisworkbook.sheets
    If sht.name = "Jan" then
        'do stuff
    End If
next

If Jan does not exist, nothing happens as long as no code that follows does anything else. Otherwise the sub will just terminate.

 

[MARK858]

Just another option..

If Evaluate("isref('" & "Jan" & "'!A1)") Then
' rest of code here
End If

 

[Micron]

Learning something new every day! Can you please explain why the concatenation rather than evaluate("isref(Jan!A1)"). Perhaps it's just personal preference?

 

[MARK858]

Can you please explain why the concatenation rather than evaluate("isref(Jan!A1)"). Perhaps it's just personal preference?

Laziness really, I am used to using a variable where the "Jan" is