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

Use the code in the blue section. This is mainly your code but I have done some modifications (I create the worksheets before writing in it).

>>>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