How does a macro total columns when sheets have diff row counts?

C

Chuck@qgold

I am trying to have a recorded macro sum the columns in my range. My
spredsheets have differing row counts so I want my macro to recognize and sum
accordingly.
 
J

JE McGimpsey

One way:

Dim dSum As Double
With ActiveSheet
dSum = Application.Sum(.Range( _
.Cells(1, 1), .Cells(.Rows.Count, 1))
End With
 
Top