Here is my stab at it cappy. Plus, deleted those three default sheets at the end of script. What a sheet-head I am ja ?

code:
break on

$=setoption("wrapateol","on")

$file = @scriptdir + '\test.xls'
if exist($file)
    del $file
endif

$xl = createobject ( "excel.application" )
$xl.UserControl = 1
$xl.DisplayAlerts = 0

$= $xl.workbooks.add

for $i = 1 to 7
 if $s
  $s = $xl.worksheets.add(,$s)
 else
  $s = $xl.worksheets.add()
 endif
 $xl.ActiveSheet.name = "A" + $i
 $xl.range("C3").value = "writetosheet$i"
next

for $i = 1 to 3
 $= $xl.ActiveWorkbook.Sheets("Sheet"+$i).Delete()
next

$ = $xl.ActiveWorkbook.SaveAs($file)
$ = $xl.quit