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