Set xlw_source = Workbooks.Open(srcDBName)

--
If this post helps click Yes
---------------
Jacob Skaria


"Sri via OfficeKB.com" wrote:

Hello,

While I execute the following code, I get "subscript out of range" error at
the last line.
The file "Report_2009-04-16.xls" exists in the location mentioned in vPath.
Could any body help me out here please ...

Dim srcDBName As String
Dim xlw_source As Excel.Workbook

inpDate = "2009-04-16"
vPath = ThisWorkbook.Path
srcDBName = vPath & "\" & "Report_" & inpDate & ".xls"
Set xlw_source = Excel.Workbooks(srcDBName)

--
Message posted via http://www.officekb.com