![]()
Workbooks.Open originpath & basename, UpdateLinks:=0 lastrow = ActiveSheet.UsedRange.Rows.Count MsgBox ActiveSheet.Name 'name is correct ActiveSheet.Range(Cells(1, 1), Cells(9, 1)).Copy '<<< error 1004 application or object error at this line Selection.Copy
Bookmarks