Check if sheets exist

[oldham94l]

i need a macro to check specified sheet names exist, eg "menu" "data" "mail" etc

if any sheets are missing then a macro will run.

thanks

 

[Haluk]

Hi;

You may try this if it helps;

Option Base 1
Sub CheckWB()
Dim CheckShName(3) As String, i As Integer, j As Integer
CheckShName(1) = "menu"
CheckShName(2) = "data"
CheckShName(3) = "mail"
For j = 1 To 3
For i = 1 To Worksheets.Count
If Sheets(i).Name <> CheckShName(j) Then
YourMacro
Exit Sub
End If
Next
Next
End Sub

 

[tusharm]

One way:

<pre>
Function SheetPresent(ByVal aName As String) As Boolean
On Error Resume Next
SheetPresent = Not (ActiveWorkbook.Sheets(aName) Is Nothing)
End Function

Sub testSheetPresent()
MsgBox SheetPresent("sheet1") _
& ", " & SheetPresent("no such sheet")
End Sub

</pre>

 

[VoG]

Another method (there are loads of ways to do this)


Function SheetExists(sheetName As String) As Boolean

Dim iSheet As Object

For Each iSheet In Sheets

If UCase(iSheet.Name) = UCase(sheetName) Then

SheetExists = True

Exit Function

End If

Next iSheet

End Function