Sub Salva() Dim sh As Worksheet, fpath As String, fname As String fpath = ThisWorkbook.Path fname = fpath & "\" & "valori" & "_" & Format(Now(), "yyyy-mm-dd") & ".xls" For Each sh In ThisWorkbook.Worksheets sh.UsedRange.Value = sh.UsedRange.Value Next ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close 'True End Sub