Copy worksheet to new tab..... with a twist

[picklefactory]

Hi folks
I found the below code on here (Thank you Steve the Fish) to copy a worksheet and rename..... works a treat, no problem there. However, I now wish to complicate matters (Like wot I always do). Currently it simply duplicates the sheet to a new sheet and renames as I wish from the value in a specified cell, but 3 of the cells contain a formula. Is it possible to have it copy the sheet but with cell values only, and not the formulae? It would be fine to have the entire sheet copied as values only, if that makes it easier, otherwise it's just cells C15, C17 and C19 that contain the formulae I don't want copied.
Is that tricky?

Here's the code

'Copy sheet to new tab
Dim wks As Worksheet
Set wsTem = Sheets("Employee List")
Set wsMain = Sheets("Input")

If Not SheetExists(wsTem.Range("J9").Value) Then
    wsMain.Copy after:=Worksheets(Sheets.Count)
    ActiveSheet.Name = wsTem.Range("J9").Value
    wsMain.Activate
End If

 

[picklefactory]

Oh, sorry... I just managed to find the solution. I just added the below into the function and does what I want....... dead easy, this VBA stuff

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

So it now becomes

'Copy sheet to new tab
Dim wks As Worksheet
Set wsTem = Sheets("Employee List")
Set wsMain = Sheets("Input")

If Not SheetExists(wsTem.Range("J9").Value) Then
    wsMain.Copy after:=Worksheets(Sheets.Count)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    ActiveSheet.Name = wsTem.Range("J9").Value
    wsMain.Activate
End If