Excel VBA Macro to Add, Open, Save a Workbook

Macro to Add, Open, Save a Workbook
Sub Add_Workbook()

Workbooks.ADD.SaveAs Filename:="C:\Documents and Settings\Administrator\My Documents\Test.xlsx" 'Creates A Workbook

Workbooks("A").Worksheets("AAA").Range("A1:Z65000").Copy

Workbooks.Open Filename:="C:\Documents and Settings\Administrator\My Documents\Test.xlsx" 'Opens An Existing Workbook

Workbooks("Test").Activate

Workbooks("Test").Worksheets("sheet1").Range("a1").PasteSpecial

Workbooks("Test").Save

Workbooks("Test").Close

End Sub

Thanks,Tamatam