Function ZapisiBezFormula() Dim Sit As Worksheet On Error Resume Next For Each Sit In Worksheets With Sit.UsedRange .Copy .PasteSpecial xlPasteValues End With Next Sit Application.CutCopyMode = False Application.Dialogs(xlDialogSaveAs).Show End Function