VBA: Finde sum i mange regneark

Mappe - ark - filnavn - terminologien skal nok tydeliggøres.

Hvis du konstruere en lille model, der er repræsentativ og sender den til min @-adresse (se under min profil) - så skal jeg prøve.

Kode er indlagt under ark1 i filen Total.xls:

Const optælFraCelle = "M20"
Const indsætTotalCelle = "C10"

Dim xlsFil As Object
Dim aktuelleSti As String, total As Double
Public Sub optælling1Til52()
    aktuelleSti = ActiveWorkbook.Path
   
    total = 0
    traverserFilMappen aktuelleSti
    Range(indsætTotalCelle) = total
   
    MsgBox "Optælling afsluttet - total: " & CStr(total)

End Sub
Private Sub traverserFilMappen(mappeSti)
Dim fs, f, f1, fc, fNavn As String
Dim ræk As Long, kol As Long, linje As Variant

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(mappeSti)
    Set fc = f.Files
   
    For Each f1 In fc
        If okFilnavn(f1.Name) = True Then
           
            Set xlsFil = CreateObject("Excel.Application")
            With xlsFil
                .Workbooks.Open mappeSti & "\" & f1.Name
                .Sheets(1).Activate
                               
                total = total + .Range(optælFraCelle)
                .Quit
            End With
           
            Set xlsFil = Nothing
        End If
    Next
End Sub
Private Function okFilnavn(filnavn) As Boolean
Dim p As Byte, nr As Byte, fornavn As String
    p = InStr(filnavn, ".")
    If p > 0 Then
        fornavn = Left(filnavn, p - 1)
        okFilnavn = IsNumeric(fornavn)
    Else
        okFilnavn = False
    End If
End Function

Det virker perfekt!!

Mange tak for hjælpen.