need help with simple syntax error

  • Thread starter Thread starter Gwill
  • Start date Start date
G

Gwill

What's wrong with the following???? I get "run-time error '9': Subscript
out of range" on the last line

Sub copyfinaldata()
Dim finalreportfile As String

'Open the FINALREPORT file

finalreportfile = InputBox("Open the final report", "Enter filename",
ThisWorkbook.Path & "\test.xls")
Workbooks.Open Filename:=finalreportfile


Windows(finalreportfile).Activate
 
add this
DIM WB as Workbook

then change this
Workbooks.Open Filename:=finalreportfile

to
SET WB = Workbooks.Open(finalreportfile)

to don't need to activate the workbook normally as the
newly opened book is usually the active one
however

WB.Activate

this methos gives greater control
eg
WB.Close False
to close without saving

HTH
Patrick Molloy
Microsoft Excel MVP
 
Back
Top