Subscript out of range - VB

Формулировка задачи:

Добрый день, подскажите пожалуйста как исправить ошибку.
Записал код макрорекордером копирование листов между книгами, но на второй строке выходит ошибка "Subscript out of range"

Sheets("Лист1").Select
Sheets("Лист1").Copy Before:=Workbooks("Прогноз").Sheets(1)

Книга Прогноз создана, я просто ее открываю.

Решение задачи: «Subscript out of range»

textual
                            Листинг программы 
                        
                            Workbooks("Прогноз.xlsx")