Ошибка при попытке скопировать рабочий лист

У меня возникла ошибка «Копировать метод класса Worksheeet failed» в этой строке:

.Sheets("Blank Forecast Sheet").Copy After:=.Sheets("Button Sheet") 

Я осмотрелся и не нашел решения. Этот код, как можно видеть, должен добавить новые листы, которые я переименую, когда-то, я решаю эту проблему.

 Sub addnewsheet() Dim wbook As Workbook Set wbook = Application.ActiveWorkbook Dim newsheet As Worksheet Dim datasheet As Worksheet Dim m As String Dim y As Integer m = Format(Date, "mmmm") y = Format(Date, "yyyy") With wbook .Sheets("Blank Forecast Sheet").Copy After:=.Sheets("Button Sheet") End With End Sub 

Используйте wbook .Worksheets вместо wbook и .Worksheets вместо. .Sheets :

 Sub addnewsheet() Dim newsheet As Worksheet Dim datasheet As Worksheet Dim m As String Dim y As Integer m = Format(Date, "mmmm") y = Format(Date, "yyyy") With ThisWorkbook .Worksheets("Blank Forecast Sheet").Copy After:=.Worksheets("Button Sheet") End With End Sub 
Давайте будем гением компьютера.