Здравствуйте. Решаю следующую задачу
Требуется перебрать 180 строк по столбцам с D по L, найти максимальное значение в каждой строке и пометить его цветом
Использую следующий макрос.


Sub Макс()
Dim iMaxRange As Range
Dim iMax As Long
For w = 1 To 180
R1 = Range("D3").Offset(w, 0).Address
R2 = Range("L3").Offset(w, 0).Address

iMax = WorksheetFunction.Max(Range(R1 & " : " & R2))
If iMax = 0 Then 'если в строке нет чисел
GoTo q:
End If
Set iMaxRange = Range(R1 & " : " & R2).Find(What:=iMax, LookIn:=xlValues, LookAt:=xlWhole) 'ищем ячейку с максим. значением
iMaxRange.Interior.ColorIndex = 3 'выделяем красным
q:
Next
End Sub

Но выдает ошибку на строке - iMaxRange.Interior.ColorIndex = 3, потому что в предыдущей строке не было найдено и присвоено искомое значение.

Если ставлю обычные цифры 1, 2, и т.д. , то все работает нормально, но учитывая что у меня цифры могут иметь по 10 знаков после запятой, то видимо по этому происходит ошибка.
Замена Long на Double не помогает. Как быть?

что то у себя в Excel не нашел что переменной можно присвоить Decimal.
Но проблемка решена. Забил на все и сделл по простому))
убрал поиск и сделал прямое сравненние и все заработало