исправить код

Ребята помогите пожалуйсто исправить код, данным кодом пытаюсь сделать активным лист и вызвать его на просмотр! а у меня ругается здесь
Private Sub Просмотр_Click() 'кнопка для скрытия и показа скрытых листов свыводом на просмотр
Xl.Worksheets("ККМ").Visible = True
Xl.Worksheets("Лист1").Visible = False
Form4.Hide
ActiveWindow.SelectedSheets.PrintPreview
Xl.Worksheets("Лист1").Visible = True
Xl.Worksheets("ККМ").Visible = False
Application.Visible = False
Form4.Show
End Sub