Импорт листа при открытии файла не работает

Question

У меня есть файл, который при открытии я хочу открыть другой лист (из другого файла). Фактический код работает, когда выполняется как одна команда, однако, когда я пытаюсь включить его, чтобы он работал при открытии файла, он не работает

   Sub ImportWorksheet()
       Sheets("Sheet1").Select
       PathName = Range("D3").Value
       Filename = Range("D4").Value
       TabName = Range("D5").Value
       ControlFile = ActiveWorkbook.Name
       Workbooks.Open Filename:=PathName & Filename
       ActiveSheet.Name = TabName
       Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1)
       Windows(Filename).Activate
       ActiveWorkbook.Close SaveChanges:=False
       Windows(ControlFile).Activate
       ActiveWorkbook.Sheets("Sprinter-DB").Visible = False
   End Sub

Ошибка времени выполнения '9': Индекс вне диапазона На линии Windows (имя файла). Активировать