macro code to save file to new folder with values and not formulas

**gokzee** · 02-01-2013, 05:19 AM

Hello!!,,

i am using the below macro to save the excel file to a new folder.but this is copying the formulas and not the values

Sub SaveBook()
   Dim sFile As String
   sFile = "fixing" & " " & Format(Now(), "dd.mm.yy.hh.mm") & ".xls"
   ActiveWorkbook.SaveAs Filename:="file path" & sFile
   ThisWorkbook.Close Saved = True
End Sub

how can i amend it to save the values from the sheets instead of formulas.

PLease Help

Many thanks

Gokz

**patel45** · 02-01-2013, 06:41 AM

Sub SaveBook()
   Dim sFile As String
   fpath="C:\test\" '  <<<< to be changed
   sFile = "fixing" & " " & Format(Now(), "dd.mm.yy.hh.mm") & ".xls"
   For Each ws In ActiveWorkbook.Worksheets
     With ws.UsedRange
       .Value = .Value
     End With
   next
   ActiveWorkbook.SaveAs Filename:=fpath & sFile
   ThisWorkbook.Close Saved = True
End Sub