Good Evening All
i have a file in excel 2003 format and they have 8-9 sheet.i want consolidate all sheet in new workbook in 2007 format.
Request you to please help me to get macro for this.
I m trying this
Sub Consolidate()
Application.ScreenUpdating = False
For Each ws In Worksheets
Windows("Money movement report - Renewals.xls").Activate
Sheet1.Range("A1:y65536").Copy
Windows("MM.xlsx").Activate
Sheets("MM").Activate
ActiveSheet.Paste Range("A1").End(xlUp)
Next ws
End Sub
i have a file in excel 2003 format and they have 8-9 sheet.i want consolidate all sheet in new workbook in 2007 format.
Request you to please help me to get macro for this.
I m trying this
Sub Consolidate()
Application.ScreenUpdating = False
For Each ws In Worksheets
Windows("Money movement report - Renewals.xls").Activate
Sheet1.Range("A1:y65536").Copy
Windows("MM.xlsx").Activate
Sheets("MM").Activate
ActiveSheet.Paste Range("A1").End(xlUp)
Next ws
End Sub