Sub FindSubTotal()
Dim rng As Range
Set rng = Cells.Find(What:="Subtotal", _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
rng.Offset(0, 1).Select
Else
MsgBox "Subtotal not found"
End If
End Sub

--
Regards,
Tom Ogilvy

"luvsun27" wrote in
message ...

I am trying to create a macro to populate another worksheet. I did my
subtotals, but when I do a link from the subtotal page in the new
document, it gives me a specific cell number...I want it to be dynamic
and find the cell number.

For example, on the subtotal page, there are 3 columns and 3 rows for
the totals...and I want to pull the total #1 without specifiying the
row "C2204". Is there a code/command that will do a find on a key word
and then use the cell that is to the right or left of it?

Sorry so confusing....this is new to me. Thanks much.


--
luvsun27
------------------------------------------------------------------------
luvsun27's Profile:
http://www.excelforum.com/member.php...o&userid=31495
View this thread: http://www.excelforum.com/showthread...hreadid=511733