quote:

---

expression.Add(Before, After, Count, Type)
After Optional Variant. An object that specifies the sheet after which the new sheet is added.

---

I failed to get that straight

here a sample of how I don't what it to work :

break on



$file = @scriptdir + '\test.xls'

if exist($file)

    del $file

endif



$xl = createobject ( "excel.application" )

$ = $xl.workbooks.add



for $i = 1 to 7

    if $i > 3

        $ = $xl.worksheets.add ;<--- this needs to be corrected

    endif

    $  = $xl.WorkSheets("Sheet"+$i).Activate

    $xl.ActiveSheet.name = "A" + $i

    $xl.range("C3").value = "writetosheet$i"

next



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

$xl.UserControl = 1

$ = $xl.quit

[ 11. September 2003, 14:32: Message edited by: Jochen ]

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

---