Find and Replace

[MyersEPS]

Hello,

I am trying to find and replace 2 place decimals numbers in a column with 3 place decimals using vba. The problem is that some of the numbers are over an hour (1.16 should be 1.167) in time. I tired using wildcards, but it seems to put the wildcard character in with the number. Any help would be appreciated.

Thanks

 

[Yongle]

Code is now replacing the values in the original cell UNLESS the cell contains a formula

Sub ValueReplace()
    Dim Hrs As Integer, M As Integer, Valu As Double, Decml As Double, calcDecml As Double, cel As Range, Rng As Range
    With ActiveSheet
        Set Rng = .Range("D2", .Range("D" & Rows.Count).End(xlUp))
    End With
    
    For Each cel In Rng
        [COLOR=#ff0000]If Not cel.HasFormula Then[/COLOR]
            Valu = cel.Value
            If Valu <> 0 Then
                Hrs = Fix(Valu):   Decml = Valu - Hrs
                For M = 0 To 59
                    calcDecml = Round(M / 60, 3)
                    If Abs(Decml) <= calcDecml Then
                        If Valu < 0 Then calcDecml = -calcDecml
                            [COLOR=#000080]cel = Hrs + calcDecml[/COLOR]
                            Exit For
                    End If
                Next M
            End If
        [COLOR=#ff0000]End If[/COLOR]
    Next cel
End Sub

 

[MyersEPS]

That seems to be doing the trick, thanks Yongle