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