Check if worksheet exists

[jlepard]

Trying to add VBA code to check if a worksheet ("Data") exists in the workbook. Have tried If Not SheetExists("Data") Then and other configurations, but none seem to work.

Appreciate any suggestions.

[Ricky Morris]

Try this:

Sub findsheet()
sheetfound = False
For Each sht In Worksheets
If sht.Name = "Data" Then
sheetfound = True
Exit For
End If
Next
End Sub

[Ivan F Moala]

Another way besides Rickys

Dim sh As Worksheet



On Error Resume Next

Set sh = ThisWorkbook.Sheets("Sheet1")

If sh Is Nothing Then MsgBox "Sheet doesn't exist!"

Set sh = Nothing: On Error GoTo 0



'// Rest of your code

'// goes here

[jlepard]

Thanks, Ricky and Ivan. Both suggestions work great.

Appreciate the quick response.

[jlepard]

Ricky,

I tried to add an ElseIf in case the "Data" sheet is not found, but condition fails. Also tried to change condition to <> "Data" but that also failed. Any suggestions on how to add an Elseif the sht.name is not "Data"?

Thanks for any assistance.

[jlepard]

Ricky,

Apologies for previous message. Discovered I have to add the If condition after Next and test if Sheetfound = True or False.