Requesting assistance on this.
This formula works:
Workbooks(Mybook).Activate
Workbooks(Mybook).Worksheets(Worksheetname).Range("A1:AZ" & ICount).Copy _
'Workbooks("005.xlsx").Worksheets(1).Range("A1")
However it ceases when changing the "005.xlsx" to the statement: "CellA" & ".xlsx" - and CellA equals 005
Workbooks(Mybook).Activate
Workbooks(Mybook).Worksheets(Worksheetname).Range("A1:AZ" & ICount).Copy _
Workbooks("CellA" & ".xlsx").Worksheets(1).Range ("A1")
Thanks for the assistance.
This formula works:
Workbooks(Mybook).Activate
Workbooks(Mybook).Worksheets(Worksheetname).Range("A1:AZ" & ICount).Copy _
'Workbooks("005.xlsx").Worksheets(1).Range("A1")
However it ceases when changing the "005.xlsx" to the statement: "CellA" & ".xlsx" - and CellA equals 005
Workbooks(Mybook).Activate
Workbooks(Mybook).Worksheets(Worksheetname).Range("A1:AZ" & ICount).Copy _
Workbooks("CellA" & ".xlsx").Worksheets(1).Range ("A1")
Thanks for the assistance.