title: Access VBA How to add new sheets to excel?
body: <p>I am running a few modules of code in access and am writing data into 
  Excel. When I write the first time, data gets written properly. But again 
  when I try, the new data is written on top of the old data. What should I do to 
  insert a new sheet?</p>
  
  <p>My existing code is</p>
  
  <pre><code>Dim objexcel As Excel.Application
  Dim wbexcel As Excel.Workbook
  Dim wbExists As Boolean
  Dim objSht As Excel.Worksheet
  Dim objRange As Excel.Range                                    
  Set objexcel = CreateObject("excel.Application")
  On Error GoTo Openwb
  wbExists = False
  Set wbexcel = objexcel.Workbooks.Open("C:\REPORT1.xls")
  Set objSht = wbexcel.Worksheets("Sheet1")
  objSht.Activate
  wbExists = True
  
  Openwb:              
  On Error GoTo 0
  If Not wbExists Then
      objexcel.Workbooks.Add
      Set wbexcel = objexcel.ActiveWorkbook
      Set objSht = wbexcel.Worksheets("Sheet1")
  End If
  </code></pre>