Förmeln löschen, Werte fixieren

Private Sub CommandButton1_Click()
Dim ws as Worksheet
If MsgBox("Speichern unter bitte bestätigen. Durch bestätigen werden alle aktiven Formeln durch  _
Werte ersetzt", vbYesNo) = vbYes Then
For Each ws In ActiveWorkbook.Worksheets
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Next
Application.Dialogs(xlDialogSaveAs).Show
Else
Exit Sub
End If
Application.CutCopyMode = False
End Sub