If that's what you want done -and only that- I'd rewrite it to a function:

Function SumBold(WorkRange As Range) As Double
Dim Cell As Range
Application.Volatile
On Error Resume Next
For Each Cell In WorkRange
If Cell.Font.Bold = True Then _
SumBold = SumBold + Cell.Value
Next Cell
End Function

And in a cell:
=SumBold(B2:B250)

Note that recalculation doesn'a appear whan you change format (like making a
number bold), you must press F9 to get the new result. There is no
workaround for this.

HTH. Best wishes Harald

"jay dean" skrev i melding
...
Harald -
If I want to put the sum formula for FoundCells in cell A1, how would
I do that...
(i.e) Range("A1").formula="=sum(FoundCells)" ?

Thanks
Jay Dean



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!