Need Help in macro

[negi]

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

 

[AlphaFrog]

[color=darkblue]Sub[/color] am()
    
    [color=darkblue]Dim[/color] ws [color=darkblue]As[/color] Worksheets
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] ws [color=darkblue]In[/color] Workbooks("zz.xlsx").Worksheets
        
        ws.Range("A1:BE" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy _
            Destination:=Workbooks("MM.xlsx").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
    [color=darkblue]Next[/color] ws
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[negi]

thanks sir
but its not working.
error showing in
For Each ws In Workbooks("zz.xlsx").Worksheets

[COLOR=darkblue]Sub[/COLOR] am()
    
    [COLOR=darkblue]Dim[/COLOR] ws [COLOR=darkblue]As[/COLOR] Worksheets
    
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] ws [COLOR=darkblue]In[/COLOR] Workbooks("zz.xlsx").Worksheets
        
        ws.Range("A1:BE" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy _
            Destination:=Workbooks("MM.xlsx").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
    [COLOR=darkblue]Next[/COLOR] ws
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[AlphaFrog]

Do you have a workbook called zz.xlsx opened in the same instance of Excel?