I have a spreadsheet that already has subtotals generated via menu
(Data -> Subtotal). Is there a way to get those subtotals via VB
without resorting to using the row number?

THANKS
John

Maybe something like this

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "A").Value Like "*Total*" Then
'do something with the value in the adjacent cell Cells(i,
"B").Value
End If
Next i


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"RocketMan" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have a spreadsheet that already has subtotals generated via menu
> (Data -> Subtotal). Is there a way to get those subtotals via VB
> without resorting to using the row number?
>
> THANKS
> John
>