Sub Test()
  Dim wkb_Archive As Workbook
  Set wkb_Archive = Workbooks("Archive.xlsx") '*** Returns Error
End Sub