Macro query

[cuiqin1234]

Hi, I need some help for the following VBA codes, there is always a error message says" there is not enough resources for completing this command" when i debug the codes, " ActiveSheet.paste" is highlighted.




Sub Hotel()
'
' Hotel Macro
'

Windows("Foodservice database final.xlsm").Activate
Sheets("Database").Select
Range("A1:AE1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Y$5581").AutoFilter Field:=1, Criteria1:=Array( _
"5a", "5b", "5c"), Operator:=xlFilterValues
Range("A1").Select
Cells.Select
Selection.Copy
Workbooks.Add
Sheets(1).Select
Sheets(1).Name = "Hotel"
Sheets("Hotel").Select
ActiveSheet.paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

 

[shawnhet]

This is just a guess (without trying your code at all), but have you tried moving ActiveSheet.paste below Range("A1").Select (switch places of the two lines).

Cheers,

 

[cuiqin1234]

Thank you very much!
I tried (see below) but the same error happened.


Hotel Macro
'

Windows("Foodservice database final.xlsm").Activate
Sheets("Database").Select
Range("A1:AE1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Y$5581").AutoFilter Field:=1, Criteria1:=Array( _
"5a", "5b", "5c"), Operator:=xlFilterValues
Range("A1").Select
Cells.Select
Selection.Copy
Workbooks.Add
Sheets(1).Select
Sheets(1).Name = "Hotel"
Sheets("Hotel").Select
Range("A1").Select
ActiveSheet("Hotel").paste
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub