Я пытаюсь скопировать лист, используя подпрограмму, и получаю ошибку '91': переменная объекта не установлена

Question

, если вам нужна дополнительная информация, не стесняйтесь спрашивать. спасибо.

Вот функция:

Sub transfer(filename As Variant, sht As Worksheet)

Dim book As Workbook
Set book = Workbooks.Open(filename)

sht.Copy after:=book.Sheets(1)

book.Save

End Sub