Value cells

[Steven]

I have a worksheet that is using an excel addon program which uses a function
=DBR( , , , ). The =DBR() occurs for example 100 times in the worksheet will
be in different columns and is not continuous cells. My question is that if
I another person wants to see the worksheet the =DBR() functions must be
Valued because they do not have the addon on their machine and we do not want
to purchase addition licenses to put it on.

Question: Is there a quick way to tell excel to value any cell where it
sees the =DBR() function. I had made a routine that started at A1 and tested
the cell to see if it had the =DBR() function and then it would value if it
was true and then go to A2 A3 down to A200 then to B1....down to B200 then C
then D, E , F , G, H, I, J until it had tested to J200. But that is a bit
cumbersome. I was wondering if there is a quick hit method I am missing.

Thank you for your help.

Steven

 

[Gary''s Student]

Use a submarine:

Sub marine()
For Each r In ActiveSheet.UsedRange
If r.HasFormula Then
If Left(r.Formula, 4) = "=DBR" Then
r.Value = r.Value
End If
End If
Next
End Sub

 

[Steven]

WOW - thank you. So fast.