To snb
I'm replacing: 
            mysum = 0
                       For i = 1 To colm - 1  'do this by slicing and dicing arrays a la snb instead.
                          mysum = mysum + resultsAry(rw, i)
                        Next i
with: 
            mysum = 0
            If colm > 1 Then
              With Application
                mysum = .Sum(.Index(resultsAry, rw, .Transpose(Evaluate("row(1:" & colm - 1 & ")"))))
              End With
            End If
Both seem to give the same results.
2 questions:
1. Is there a slicker way?
2. So far it seems a lot slower - is this your experience?