I have used the following example from Microsoft to
create this file. However when I double click on this
file from the explore to open it, it is displayed with no
default worksheet.  In order to do this I have to click
on View then Full Screen every time I want to open this
excel.
How can I make it displayed full screen automatically?
Thanks

Dim oExcel As Object
       Dim oBook As Object
       Dim oSheet As Object

       'Start a new workbook in Excel.
       oExcel = CreateObject("Excel.Application")
       oBook = oExcel.Workbooks.Add

       'Add data to cells of the first worksheet in the
new workbook.
       oSheet = oBook.Worksheets(1)
       oSheet.Range("A1").Value = "Last Name"
       oSheet.Range("B1").Value = "First Name"
       oSheet.Range("A1:B1").Font.Bold = True
       oSheet.Range("A2").Value = "Doe"
       oSheet.Range("B2").Value = "John"

       'Save the Workbook and quit Excel.
       oBook.SaveAs(sSampleFolder & "Book1.xls")
       oSheet = Nothing
       oBook = Nothing
       oExcel.Quit()
       oExcel = Nothing
       GC.Collect()