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

<pre/>

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

</pre>

 

[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.