If sheet exists then run code

[jordanburch]

Hi All,

Im trying to check if the sheet exists and then run code if it does and if not skip that code and check for the next sheet.

If SheetExists("IProcessed") Then

code
else

If SheetExists("IProcessed") Then
code

its not working for some reason. I think im missing something easy. What are your throghts?

 

[MARK858]

Have you got a function called SheetExists?

 

[jordanburch]

no I had a function that I copied from a website but deleted it because for whatever reason it did not work. I have found many solutions, but cant seem to implement them for my situation.

 

[MARK858]

Try the code below if the sheet is in the same workbook

Sub shtext2()
    If Evaluate("ISREF('IProcessed'!A1)") Then   
       'code to run if sheet exists
    Else
        'code to run if sheet doesn't exists
    End If
End Sub

 

[jordanburch]

Try the code below if the sheet is in the same workbook

Sub shtext2()
    If Evaluate("ISREF('IProcessed'!A1)") Then  
       'code to run if sheet exists
    Else
        'code to run if sheet doesn't exists
    End If
End Sub

seems like it works thank you! now im getting a block if error basically theres no end if .
If Evaluate("ISREF('IProcessed'!A1)") Then
'code to run if sheet exists
Else
If Evaluate("ISREF('DCS'!A1)") Then
'code to run if sheet doesn't exists
else
If Evaluate("ISREF('TYT'!A1)") Then
code

End If

do I have to put and end if on every if statement? im using it for many different tabs with different names and different code

 

[MARK858]

You need to use ElseIf

    If Evaluate("ISREF('IProcessed'!A1)") Then
        MsgBox "1"
    ElseIf Evaluate("ISREF('DCS'!A1)") Then
        MsgBox "2"
    ElseIf Evaluate("ISREF('TYT'!A1)") Then
        MsgBox "3"
    Else
        MsgBox "NO SHEETS FOUND"
    End If

 

[jordanburch]

You need to use ElseIf

    If Evaluate("ISREF('IProcessed'!A1)") Then
        MsgBox "1"
    ElseIf Evaluate("ISREF('DCS'!A1)") Then
        MsgBox "2"
    ElseIf Evaluate("ISREF('TYT'!A1)") Then
        MsgBox "3"
    Else
        MsgBox "NO SHEETS FOUND"
    End If

worked thank you very much!

 

[MARK858]

You're welcome