whoops, forgot to paste the code in:
try this:


Code:
--------------------
Sub FindSumIf()
Cells.Find(What:="sumif", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
MsgBox ActiveCell.Value
End Sub
--------------------


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=381401