Hello all, I need to loop through each sheet, copy the values in Range B4:M7 (they're constant, always numbers) and then add them all together in on the Home page. Basically it's been awhile since I've done loops so I'm forgetting how to add them up as you go then put them in the home sheet and getting an error on the code below. Any help is greatly appreciated. Thanks!
Code:
Dim Rng as Range
Dim RngTotal as Range
RngTotal = 0
Dim ws3 As Worksheet
For Each ws3 In Sheets
If ws3.Name <> "Home"
Set Rng as ws3.Range("B5:M8")
End If
RngTotal = RngTotal + Rng
Next ws3
Sheets("Home").Range("B5:M8") = RngTotal
End Sub