this is all the code:
Dim xlApp As Object, xlsheet As Object
Set xlApp = CreateObject("excel.sheet.5")
Set xlsheet = xlApp.Application.ActiveWorkbook.sheets("sheet1")
xlApp.activesheet.Name = "Order Form"
xlsheet.cells(10, 2).formula = "Your Ref"
xlsheet.cells(12, 1).formula = "Code"...