Gem med formler og gem med værdier

Findes der data i mere end et ark ?

Spørgsmålet er underordnet, jeg har lige tilføjet, så alle ark løbes igennem.

Prøv dette:

Sub GemFormler_GemValues()
Dim WS As Worksheet
Dim sFileName As String
Dim Dato As String
Dim Tid As String
    Dato = CStr(Date)
    Tid = CStr(Format(Time, \"hh-mm-ss\"))
   
    sFileName = \"D:\\Dokumenter\\Formler den \" & Dato & \" - kl \" & Tid & \".xls\"
    ActiveWorkbook.SaveAs Filename:=sFileName, FileFormat:=xlNormal

    For Each WS In ActiveWorkbook.Worksheets
        WS.Select
        Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
    Next WS

    sFileName = \"D:\\Dokumenter\\Values den \" & Dato & \" - kl \" & Tid & \".xls\"
    ActiveWorkbook.SaveAs Filename:=sFileName, FileFormat:=xlNormal

End Sub

Mange tak, Flemming.
Det fungerer jo bare perfekt.
mvh
alan