title: Excluding specific cells from being copied when copy one Workbook to another Workbook
body: <p>The code I am using takes sheets as array and copies them as XlValues, but there are few cells containing formulas which I want to keep and paste as xlFormats. How can i achieve that?</p>
  
  <pre><code>Sub CopyPasteSave()
  Dim NewName As String
  Dim nm As Name
  Dim ws As Worksheet
  Dim Path As String, rcell As Range
  Set rcell = Sheets("EPF Daily Report").Range("I5")
  Path = "D:\"
  
  
  If MsgBox("Copy specific sheets to a new workbook" &amp; vbCr &amp; _
  "New sheets will be pasted as values, named ranges removed" _
  , vbYesNo, "NewCopy") = vbNo Then Exit Sub
  
  With Application
  .ScreenUpdating = False
  
  ' Copy specific sheets
  ' *SET THE SHEET NAMES TO COPY BELOW*
  ' Array("Sheet1", "Sheet2"))
  ' Sheet names go inside quotes, seperated by commas
  On Error GoTo ErrCatcher
  Sheets(Array("InletManifold", "Separator", "Crude Strippers &amp; Reboilers ", "Water Strippers  &amp; Reboilers ", "Crude Storage&amp;Export", "GSU,FLARE &amp; GEN", "EPF Utility", "EPF Daily Report", "Choke Size")).Copy
  On Error GoTo 0
  
  ' Paste sheets as values
  ' Remove External Links, Hperlinks and hard-code formulas
  ' Make sure A1 is selected on all sheets
  For Each ws In ActiveWorkbook.Worksheets
  ws.Cells.Copy
  ws.[A1].PasteSpecial Paste:=xlValues
  Application.DisplayAlerts = False
  
  ws.Cells.Hyperlinks.Delete
  Application.CutCopyMode = False
  Cells(1, 1).Select
  ws.Activate
  Next ws
  Cells(1, 1).Select
  
  
  
  ' Remove named ranges
  For Each nm In ActiveWorkbook.Names
  nm.Delete
  Next nm
  
  ' Input box to name new file
  'NewName = InputBox("Please Specify the name of your new workbook", "New Copy")
  
  ' Save it with the NewName and in the same directory as original
  ActiveWorkbook.SaveAs Filename:=Path &amp; " " &amp; "EPF Daily Report" &amp; " " &amp; rcell.Value &amp; ".xls"
  ActiveWorkbook.Close SaveChanges:=True
  
  .ScreenUpdating = False
  
  
  
  
  End With
  Exit Sub
  
  ErrCatcher:
  MsgBox "specified sheets do not exist within this work book"
  End Sub
  </code></pre>