opening and editing excel

[Apples76]

I have recorded the following macro from Excel, and wish to run it from a
button on a form.

could someone please show me how to convert the code so i can use it in
Access.


Thanks

ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports"
Workbooks.Open Filename:= _
"U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO
Report - UK West CSR 1 to 5999.xls"
Rows("1:4").Select
Range("A4").Activate
Selection.Delete Shift:=xlUp
Range("B8").Select
ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance"
ActiveWorkbook.SaveAs Filename:= _
"I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of
Latest PO Report - UK West CSR 1 to 5999.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close

ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports"
Workbooks.Open Filename:= _
"U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO
Report - UK West CSR 6000 to 12999.xls"
Rows("1:4").Select
Range("A4").Activate
Selection.Delete Shift:=xlUp
Range("B8").Select
ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance"
ActiveWorkbook.SaveAs Filename:= _
"I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of
Latest PO Report - UK West CSR 6000 to 12999.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close

ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports"
Workbooks.Open Filename:= _
"U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO
Report - UK West CSR 13000 to 20999.xls"
Rows("1:4").Select
Range("A4").Activate
Selection.Delete Shift:=xlUp
Range("B8").Select
ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance"
ActiveWorkbook.SaveAs Filename:= _
"I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of
Latest PO Report - UK West CSR 13000 to 20999.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close

ChDir "U:\Technology\opsdelivery\Area Team Finance\PO Reports"
Workbooks.Open Filename:= _
"U:\Technology\opsdelivery\Area Team Finance\PO Reports\Latest PO
Report - UK West CSR 21000 and above.xls"
Rows("1:4").Select
Range("A4").Activate
Selection.Delete Shift:=xlUp
Range("B8").Select
ChDir "I:\Netcon North\GUK West\Nom & Build trackers\Finance"
ActiveWorkbook.SaveAs Filename:= _
"I:\Netcon North\GUK West\Nom & Build trackers\Finance\Copy of
Latest PO Report - UK West CSR 21000 and above.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close