Why not make the status bar visible and look at the displayed sum in the
lower right portion.

--
Regards,
Tom Ogilvy


"rmullen" wrote in message
ps.com...
Hi all - I'm new to VBA programming in Excel and so any help i'd
totally love!

I'm currently writing a function.
Objective: user can select rows (do not have to be sequential). User
clicks on button. UserForm appears with summed results from ONLY rows
that he selected.

What I have now, well it doesn't work:

Sub Button6_Click()
Dim i As Integer
Dim totalNumbers As Integer
Dim aRange As range

For Each a In Selection.Areas
'MsgBox "Area " & i & " of the selection contains " & _
' a.Rows.Count & " rows."
'call with the selection area and then number of rows
Call SumValues(a, a.Rows.Count)
i = i + 1
Next a
End Sub

Public Sub SumValues(a As AcRecord, numberOfRows As Integer)

Dim i As Integer
Dim iRow As Integer

iRow = 6

'set up the column headings

'loop through the recordset

Do While rs.EOF = False
i = 1

If Oil = 1 Then
Call printOrNot("Oil", rs!Oil, i, iRow)
i = i
End If

If Gas = 1 Then
Call printOrNot("Gas", rs!MCFs, i, iRow)
i = i
End If

If Water = 1 Then
Call printOrNot("Water", rs!Water, i, iRow)
i = i
End If
Loop
End Sub

Public Sub printOrNot(ByRef sumVal As String, rsName As String, ByRef i
As Integer, iRow As Integer)
If iRow = 6 Then
'objSheet.Cells(iRow, i) = colHeading
Else
sumVal = sumVal + rsName
End If
'return this value
End Sub


My spreadsheet has any number of columns as seen in SumValues()
function. So whenever the user selects rows, I just need to sum all of
the columns up on the spreadsheet that he asked to see.

Any help that you guys can give would be so totally appreciated. Thank
you so much in advance!!!