need help with simple syntax error
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 |
need help with simple syntax error
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 -----Original Message----- 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 . |
All times are GMT +1. The time now is 02:44 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com