loop sum

[kared]

Hi, I want to sum the values of the same cell from different workbooks. Why is this code not working?

Sub Dosomething5()    Dim dodawanie
    Dim ileluk
    
    ileluk = 0
    dodawanie = 0
    
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode5
    Next
    Application.ScreenUpdating = True
End Sub

Sub RunCode5()


dodawanie = Range("N10").Value
ileluk = ileluk + dodawanie
Range("M11") = ileluk




End Sub