Ошибка 9 при активизации рабочего листа в той же книге

Question

Ошибка индекса 9 при выполнении следующего кода.Код пытается активировать лист «Сводка конвертирована», но выдает ошибку 9. Я попытался изменить лист на другой лист, но ошибка та же.

Пожалуйста, помогите парням!

Private Sub HideUnhideConvertedSheets_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="gato"
ActiveSheet.Unprotect Password:="GORDO"
If (Range("CP").Value = 0) Then
Sheets("Summary Converted").Visible = True
Sheets("Services Converted").Visible = True
Sheets("Proposal Converted").Visible = True
Sheets("Revenue & Collections Converted").Visible = True
Sheets("Unisys HW SW Converted").Visible = True
Sheets("Third Party Converted").Visible = True
Sheets("Other Services & OC Converted").Visible = True
Sheets("Cash Flow Converted").Visible = True
Sheets("Annual P&L Converted").Visible = True
Sheets("Travel Converted").Visible = True
Sheets("CapEx Converted").Visible = True
Sheets("Summary Converted").Activate
Range("CP").Value = 1
HideUnhideConvertedSheets.Caption = "Hide Converted Sheets"
Else
Sheets("Summary Converted").Visible = False
Sheets("Services Converted").Visible = False
Sheets("Proposal Converted").Visible = False
Sheets("Revenue & Collections Converted").Visible = False
Sheets("Unisys HW SW Converted").Visible = False
Sheets("CapEx Converted").Visible = False
Sheets("Third Party Converted").Visible = False
Sheets("Other Services & OC Converted").Visible = False
Sheets("Cash Flow Converted").Visible = False
Sheets("Annual P&L Converted").Visible = False
Sheets("Travel Converted").Visible = False
Range("CP").Value = 0
HideUnhideConvertedSheets.Caption = "Show Converted Sheets"
End If
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=_True, 
Password:="GORDO"
ActiveWorkbook.Protect Password:="gato"
End Sub

Answer 1

Хорошо, вызов Sheets("Summary Converted").Visible = True работал нормально, поэтому попробуйте использовать его вместо AcitveWorkbook.Sheets("Summary Converted") (без ActiveWorkbook).

Еще один совет - использовать Worksheets вместо Sheets.Листы - это набор листов, а также листы диаграмм.