VBA check if sheet exists, if yes: select. If no select another sheet name

[willow1985]

I need help with a code that can determine if a sheet name exists and do the following:

If exists: select the sheet and run a certain code
If it does not exist, select another sheet name and run a different code

Help with this code would be greatly appreciated.

Thank you

 

[mth0012]

Determine if a sheet exists in a workbook using VBA in Microsoft Excel

There could be a time when you have to check if a worksheet, which you have create or deleted in a workbook in a VBA macro / code, exists. We can do this easily using a function / macro. There … Continue reading →

www.exceltip.com

 

[Fluff]

Maybe something like

Dim ShtName As String
ShtName = "Sheet 1"
If Evaluate("isref('" & ShtName & "'!A1)") Then
   'sheet exists do something
Else
   'sheet doesn't exist do something else
End If

 

[willow1985]

This is perfect! Thank you again Fluff

 

[Fluff]

Glad to help & thanks for the feedback.

 

[willow1985]

Maybe something like

Dim ShtName As String
ShtName = "Sheet 1"
If Evaluate("isref('" & ShtName & "'!A1)") Then
   'sheet exists do something
Else
   'sheet doesn't exist do something else
End If

An additional question: are you able to do a 3rd condition that if the first 2 sheets do not exist do a 3rd code?

 

[Fluff]

How about

Dim ShtName1 As String, ShtName2 As String
ShtName = "Sheet 1"
ShtName = "Sheet 2"
If Evaluate("isref('" & ShtName1 & "'!A1)") Then
   'sheet exists do something
ElseIf Evaluate("isref('" & ShtName2 & "'!A1)") Then
   'sheet doesn't exist do something else
Else
   'whatever
End If

 

[willow1985]

Thank you again ?

 

[Fluff]

My pleasure.