Sub abc()

Dim i

Dim coloumn

coloumn = 

For i =  To

Dim currentValue

currentValue = Val(ReplaceChar(Sheet2.Cells(i, coloumn)))

If Application.WorksheetFunction.IsNumber(currentValue) Then

 If Abs(currentValue) < 0.05 Then

    Sheet2.Cells(i, coloumn).Interior.ColorIndex =

  End If

End If

Next i

End Sub

Private Function ReplaceChar(c As String) As String

 Dim a

 a = Replace(c, "*", "")

 'If InStr(a, "-") = 1 Then

 '   a = Replace(a, "-", "-0")

 'End If

 ReplaceChar = a

End Function