Sorry. I don't see your response here. Can you repost again?

>>1. I'm writing an app that can print reports in excel. I've been successful in adding worksheets and saving the workbook. The problem is, the data I wish to write is only stored in one worksheet instead of on multiple worksheets. How do I remedy this? Can anyone give me a hand in modifying the code below?
>>
>>2. Is there a way to check how many worksheets have been created? I noticed that when the workbook object is created it already has three worksheets. Is there a way for me to create the workbook with only one worksheet? Thanks!
>>
>

Option Explicit
>
>Private Sub Command1_Click()
>   Dim xlShell
>   Dim xlApp As Object
>   Dim xlBook As Object
>   Dim xlSheet As Object
>    Dim nWorkSheetCtr As Integer
>    Dim i As Integer
>    Dim cFileName As String
>
>   Set xlApp = CreateObject("Excel.Application")
>   Set xlBook = xlApp.Workbooks.Add
>   nWorkSheetCtr = 0
>   Do Until xlBook.Worksheets.Count = 4
>      xlBook.Worksheets.Add
>   Loop
>
>   For i = 1 To 4
>      nWorkSheetCtr = nWorkSheetCtr + 1
>      Set xlSheet = xlBook.Worksheets(nWorkSheetCtr)
>
>      xlSheet.Cells(1, 1) = "TEST REPORT SYSTEM"
>      xlSheet.Cells(2, 1) = "SAMPLE REPORT"
>      xlSheet.Cells(3, 1) = "Run Date/Time: " & Now
>
>      xlSheet.Cells(6, 1) = "NAME" & Trim(Str(i))
>      xlSheet.Cells(6, 2) = "POSITION"
>   Next i
>
>
>   cFileName = "c:\temp\test.xls"
>   xlBook.SaveAs cFileName
>   xlBook.Close
>   Set xlSheet = Nothing
>   Set xlBook = Nothing
>   Set xlApp = Nothing
>
>   xlShell = Shell("C:\Program Files\Microsoft Office\Office\Excel.exe " + cFileName, vbNormalFocus)
>
>End Sub