daveyc3000
New Member
Code:
Set wbcsv = Workbooks.Open("G:\TREASURY\CDIC\" & "CDICPosNeg" & showyear & showmonth & showdate & " - Copy.xlsx")
With wbcsv.Worksheets("POS")
finalrow = Cells(Rows.Count, 1).End(x1up).Row
Range("A1:A" & finalrow).Resize(1, 9).Copy
End With
I get an an application defined error or object error at "finalrow"...shows a value of "0" in debug screen
Last edited: