Sub abc()Dim iDim coloumncoloumn = 2For i = 1 To 8Dim currentValuecurrentValue = Val(ReplaceChar(Sheet2.Cells(i, coloumn)))If Application.WorksheetFunction.IsNumber(currentValue) Then If Abs(currentValue) < 0.05 Then    Sheet2.Cells(i, coloumn).Interior.ColorIndex = 6  End IfEnd IfNext iEnd SubPrivate Function ReplaceChar(c As String) As String Dim a a = Replace(c, "*", "")  'If InStr(a, "-") = 1 Then '   a = Replace(a, "-", "-0") 'End If  ReplaceChar = aEnd Function