Hello

I have found a code which allow me to rename the sheet according a cell value and it work perfectly.

Sub Copyrenameworksheet()
'Updateby Extendoffice

Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("I3").Value <> "" Then
ActiveSheet.Name = wh.Range("I3").Value


End If
wh.Activate

End Sub


The only problem i would like to have value instead formulas copy,

Is it possible to add some code within the one above.
could you please help me to found a solution.

Thanks a lot