Условие, если есть лист.

[agregator]

Уважаемые, программисты напишите пожалуйта код условия: "Если в активной книге есть Лист "Оглавление" то ..."

[The_Prist]

Dim wsSh As Worksheet
On Error Resume Next: Set wsSh = Sheets("Оглавление")
If Err.Number <> 0 Then MsgBox "Лист Оглавление отсутствует в книге"
On Error GoTo 0

[Xpoft]

Можно и так...
Sub PoiskLista()
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).Name = "Оглавление" Then
MsgBox ("Есть лист Оглавление")
End If
Next i
End Sub

[The_Prist]

Сообщение от Xpoft

Можно и так...
Sub PoiskLista()
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).Name = "Оглавление" Then
MsgBox ("Есть лист Оглавление")
End If
Next i
End Sub

Не мешало бы завершить как минимум цикл, при нахождении нужного листа. Цикл и так не быстрая штука, а если листов много, то можно значительно времени потерять. Да и переменные лучше объявлять сразу.

Sub PoiskLista()
Dim i as long 'можно и As Integer, но она инициализируется медленнее, но занимает меньше памяти
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).Name = "Оглавление" Then MsgBox ("Есть лист Оглавление"): Exit For 
'можно сразу Exit Sub, если надо завершить процедцру, а не только цикл
Next i
End Sub

[Xpoft]

The_Prist Спасибо за комменты) потихоньку учусь)

[agregator]

Спасибо, за помощь. Воспользовался первым ответом.