Hvordan laves en VBA-kode der gennemser alle ark i et regneark ?

Rem Koden indlægges i ThisWorkbook
Rem Udføres når filen åbnes
Rem ==============================
Private Sub workbook_activate()
    For Each sh In ActiveWorkbook.Sheets
        formelTilVærdi sh.Name
    Next sh
End Sub
Sub formelTilVærdi(ark)
    ActiveWorkbook.Sheets(ark).Activate
   
    ar = ActiveCell.Cells(xlLastCell).Row
    ak = ActiveCell.Cells(xlLastCell).Column
   
    Set r = Range(Cells(1, 1), Cells(ar, ak))
        For Each cc In r.Cells
            If cc.HasFormula = True Then
                værdi = cc.Value
                cc.Clear
                cc.Value = værdi
            End If
    Next
End Sub

Tak - kan må gøre således at koden kun køres når man f.eks. trykker Ctrl+M og således at det ikke kun ligge i et specifikt regneark - men at koden virker på alle regneark som man evt arbejder med ?

Det skulle nok være muligt - vender tilbage...

Rem Koden indlægges i ThisWorkbook i tomt regneark
rem Indsæt den ønskede genvej via:
rem Funktioner / Makro / Makroer / knappen Indstillinger / StartKonvertering
rem Gem filen som tilføjelsesprogram DitNavn.XLA

rem Åben en fil med formler - Funktioner /Tilføjelsesprogrammer/Marker DitNavn/OK
rem Indtast GenvejsKombinationen

Rem Udføres ved anvendelse af genvej
Rem ================================
Public Sub startKonvertering()
    For Each sh In ActiveWorkbook.Sheets
        formelTilVærdi sh.Name
    Next sh
End Sub
Sub formelTilVærdi(ark)
    ActiveWorkbook.Sheets(ark).Activate
   
    ar = ActiveCell.Cells(xlLastCell).Row
    ak = ActiveCell.Cells(xlLastCell).Column
   
    Set r = Range(Cells(1, 1), Cells(ar, ak))
        For Each cc In r.Cells
            If cc.HasFormula = True Then
                værdi = cc.Value
                cc.Clear
                cc.Value = værdi
            End If
    Next
End Sub

Perfekt - Det virker helt optimalt, TAK !!!

Selv tak - du får et svar...

Hej Supertekst,
Er der mulighed for, at macroen kan lave alle filer i en given mappe om til values?

Mvh.
Mfynbo