Maybe you could use this UDF (place the code in a Module)...

Function IsSheetNamePresent(SheetName As String) As String
On Error GoTo Done
IsSheetNamePresent = "No"
If Worksheets(SheetName).Visible Then IsSheetNamePresent = "Yes"
Done:
End Function

With your sheet names in Column A (starting in A1), put this in B1...

=IsSheetNamePresent(A1)

and copy down.

Rick


"Nico" wrote in message
...
Sorry, perhaps I wasn't clear enough.

I need some sort of index to indicate which sheets are present.

For example, the workbook tabs would look like this:
[Index] [Program A] [Program C]

The [Index] tab would have a table indicating which sheets were present:

Program A Yes
Program B No
Program C Yes

Any ideas?

Thanks!

"ryguy7272" wrote:

Try something like this:
For Each sh In ActiveWorkbook.Worksheets
If (sh.Name) < "Password" Then
'do something here
End if
Next

Hope that helps ya,
Ryan---

--
RyGuy


"Nico" wrote:

I have a number of tabs in a spreadsheet, I want a simple Yes/No index
that
indicates whether or not a tab is present as some tabs will be present
for
some managers, but not for others.

How do I do that?

Thanks!