Total many values from many sheets with VBA in Excel

Let’s take the frustration out of user forms

Become an Affiliate and earn 25% on Course Sales

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

I use a Blue condenser Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.
code
Sub totalsheet()
Dim r, c As Long
Dim x As Long
Sheet1.Range(“B4:E15”).ClearContents
r = 4
c = 2
Do While c(less than)6
For r = 4 To 15
Sheet1.Cells(r, c).Select
x = 0
Call totalcells(r, c, x)
Next r
c = c + 1
Loop

End Sub

Sub totalcells(r, c, x)
Dim i As Long
For i = 1 To ActiveWorkbook.Worksheets.Count
x = x + Sheets(i).Cells(r, c).Value2
Next i
Sheet1.Cells(r, c).Value2 = x
End Sub

Watch more new videos about Excel Office | Synthesized by Mindovermetal English