Macro Assistance

[Viking1221]

I have a macro I need some assistance with. I want the macro to value any formulas that start with '=DBRW' as it is linked to another source. I have the following macro that works but it values out every formula.

Sub ConvertSourceFormulaToValues()
Dim ws As Worksheet, rng As Range
For Each ws In ActiveWorkbook.Worksheets
For Each rng In ws.UsedRange
If rng.HasFormula Then
rng.Formula = rng.Value
End If
Next rng
Next ws
End Sub

 

[Fluff]

How about

Sub Viking1221()
   Dim Ws As Worksheet
   Dim Cl As Range
   For Each ws In ActiveWorkbook.Worksheets
      For Each Cl In ws.UsedRange.SpecialCells(xlFormulas)
         If Left(Cl.Formula, 5) = "=DBRW" Then
            Cl.Value = Cl.Value
         End If
      Next Cl
   Next ws
End Sub

 

[Viking1221]

This works perfect thanks.

 

[Fluff]

You're welcome & thanks for the feedback