title: copy set of worksheets to another workbook
body: <p>I want to copy some worksheets in my workbook to another workbook. I dont want any of the formulas or links to be copied from my source workbook.I need just the data. I would like to use vbscript to achieve this. Can anyone guide me to do this.</p>
  
  <p>This is my attempt at making it work by doing a worksheet copy, but unfortunately it also copies the formula.</p>
  
  <pre><code>Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = False
  objExcel.DisplayAlerts=False
  Set objWorkbook1= objExcel.Workbooks.Open("SourceFile.xlsx")
  set objWorkbook2=objExcel.Workbooks.Add
  set sheetsToCopy=objWorkbook1.Sheets(Array("Sheet1","Sheet2","Sheet3"))
  sheetsToCopy.Copy objWorkbook2.Sheets(1)
  objWorkbook1.save
  objWorkbook2.saveAs("TargetFile.xlsx")
  objWorkbook1.close
  objWorkbook2.close
  objExcel.DisplayAlerts=True
  set objExcel=nothing
  </code></pre>