Hi
im using this code but its not working .please help me.....
Sub am()
Dim ws As Worksheets
Application.DisplayAlerts = False
Windows("zz.xlsx").Activate
For Each ws In Worksheets
ws.Range("a1:be65536").Copy
Windows("MM.xlsx").Paste Range("A1048576").End(xlUp).Offset(1, 0)
Next ws
Application.DisplayAlerts = True
End Sub
im using this code but its not working .please help me.....
Sub am()
Dim ws As Worksheets
Application.DisplayAlerts = False
Windows("zz.xlsx").Activate
For Each ws In Worksheets
ws.Range("a1:be65536").Copy
Windows("MM.xlsx").Paste Range("A1048576").End(xlUp).Offset(1, 0)
Next ws
Application.DisplayAlerts = True
End Sub