Hi,
This may do it for you.
Sub Macro1()
Range("A1").Select
Cells.Find(What:="* Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Currency1 = ActiveCell.Offset(0, 1).Value
Cells.FindNext(After:=ActiveCell).Activate
Currency2 = ActiveCell.Offset(0, 1).Value
Cells.FindNext(After:=ActiveCell).Activate
Currency3 = ActiveCell.Offset(0, 1).Value
End Sub
--
Thanks
David


"Przemek Wrzesiński" wrote:

Pięknego dnia, a był to 7 sierpień (niedziela) 2005, osobnik ukrywający się
pod pseudonimem David w wiadomości
napisał/a:
How many currencies do you have to subtotal and how many columns are you
subtotaling?

I've got 3 currencies and I'm subtotaling only one column (amount).
--
Przemek
Now playing: nothing