Copy multiple sheet to multiple new workbooks without formulas - VBA

[pagrav]

Hi, used the following (see below) vba code to copy multiple sheets from one workbook and create a new workbook per sheet.

This works great for my use.

But, I want the new workbooks to NOT include formulas, only values. I cant figure out how to implement this code into my excisting code.

Anyone see the solution?

Sub MoveSheets()
 Dim sPath As String, sAddress As String, wsCur As Worksheet
 Dim arrNoMoveSh, mtchSh

 arrNoMoveSh = Split("Kjøretøyinfo,Anleggsregister,Forklaring+Macro", ",")  'This code prevents the macro from making new copies of this sheets

 sPath = ThisWorkbook.Path & Application.PathSeparator


 For Each wsCur In ThisWorkbook.Worksheets
      mtchSh = Application.Match(wsCur.Name, arrNoMoveSh, 0)
      
      
      If IsError(mtchSh) Then 
          wsCur.Copy 
          
        ActiveWorkbook.Close savechanges:=True, Filename:=sPath & wsCur.Name & " - " & Format(Now(), "DDMMYYYY") & ".xlsx"
       
     End If
 Next wsCur
End Sub

 

[pagrav]

Finally my Google searches paid off - added this and the copies are now without formulas

Sub MoveSheets()
 Dim sPath As String, sAddress As String, wsCur As Worksheet
 Dim arrNoMoveSh, mtchSh

 arrNoMoveSh = Split("Kjøretøyinfo,Anleggsregister,Forklaring+Macro", ",")  'This code prevents the macro from making new copies of this sheets

 sPath = ThisWorkbook.Path & Application.PathSeparator


 For Each wsCur In ThisWorkbook.Worksheets
      mtchSh = Application.Match(wsCur.Name, arrNoMoveSh, 0)
      
      
      If IsError(mtchSh) Then 
          wsCur.Copy 
          
[COLOR=rgb(250, 197, 28)] Cells.Copy
          Range("A1").PasteSpecial Paste:=xlPasteValues
          Application.CutCopyMode = False[/COLOR]
        ActiveWorkbook.Close savechanges:=True, Filename:=sPath & wsCur.Name & " - " & Format(Now(), "DDMMYYYY") & ".xlsx"
       
     End If
 Next wsCur
End Sub