Макрос не может скрыть sheet

[armagedon_atyrau]

Здравствуйте Всем!!! Помогите пожалуйста. Макрос все работает но не удаляет один шит который последнии остается.

Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("P_Report ").Visible = -1
ActiveWorkbook.Worksheets("R_Checkl ist").Visible = -1
ActiveWorkbook.Worksheets("R_Checkl ist").Delete
ActiveWorkbook.Worksheets("Data").V isible = -1
ActiveWorkbook.Worksheets("Data").D elete
ActiveWorkbook.Worksheets("Report") .Visible = -1
ActiveWorkbook.Worksheets("Report") .Delete
Application.DisplayAlerts = True

И в конце у меня остается шит P_Report. Мне нужно что бы он был не виден. Помогите плиз если кто знает. Заранее спасибо

[SAS888]

Все листы скрыть невозможно. Хотя бы один должен быть видимым.

[The_Prist]

Вы что же, хотите не оставить ни одного листа видимым? Excel такого не допустит.
Делайте невидимой всю книгу:

'Скрыть
Windows(ActiveWorkbook.Name).Visible = False
'Отобразить
Windows(ActiveWorkbook.Name).Visible = True