I have the code below that works really well.

It copies the active worksheet and creates a new sheet with name based on a specific cell. 

Can I modify this to not include formulas when copied? I only want Values and Formatting, so the new sheet is a static snapshot. 

```
Sub Copyrenameworksheet()
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(ActiveSheet.Name)
If wh.Range("C2").Value <> "" Then
ActiveSheet.Name = wh.Range("C2").Value
End If
wh.Activate
End Sub

```