Dave,
This is what I was trying, but it is returning 0, when I know there are
values... If I
msgbox(myArr(3,3)) = 10
I can write the runnin total, just thought this was cleaner and then puzzling.
Thanks!
'let excel help
With Application
myTotal = .Sum(.Index(myArr, , 3))
End With
"stanleydgromjr" wrote:
Troubled User,
Try:
Adjust the range in the below code.
VBA Code:
--------------------
Option Explicit
Option Base 1
Sub SumArray()
Dim MyArray, a As Long, MyTotal As Double
MyTotal = 0
MyArray = *Range("A1:J10")*
For a = LBound(MyArray) To UBound(MyArray)
MyTotal = MyTotal + MyArray(a, *3*)
Next a
MsgBox "The sum of the third column is = " & Format(MyTotal, "#,##0.00")
End Sub
--------------------
Have a great day,
Stan
--
stanleydgromjr
------------------------------------------------------------------------
stanleydgromjr's Profile: 503
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=193109
http://www.thecodecage.com/forumz
.