Listing C
   newBook.Worksheets(1).Activate
   newBook.Worksheets(1).Columns("A").columnwidth=50
   newBook.Worksheets(1).Columns("A").WrapText = True
   newBook.Worksheets(1).Columns("B").columnwidth=50
   newBook.Worksheets(1).Columns("B").WrapText = True
   newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"
   newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131
   newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15"
   newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell"
   newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell"
   newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell"
   newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell"
   newBook.Worksheets(1).Name="My First WorkSheet"
   fname=Xcl.GetSaveAsFilename("Testing Excel Extraction.xls")
    if fname = "False" then
       fname="Testing Excel Extraction.xls"
    end if
   newBook.SaveAsfname
    Set Xcl = nothing
   Location.Href="http://www.greggriffiths.org/index.html"

 end Sub

 </script>

 <body onload="StartExcel()">