Hatanın nerde olduğunu bulamıyorum

[Açılın ben mühendisim]

Sub Düğme1_Tıklat()
Dim rng As Range
Dim i As Integer
For i = 2 To 13
For Each rng In Range("B" & i & ":" & "H" & i)
If rng.Value = Application.WorksheetFunction.max_(Range("B" & i & ":" & "H" & i)) Then
rng.Interior.Color = vbYellow
ElseIf rng.Value = Application.WorksheetFunction.min_(Range("B" & i & ":" & "H" & i)) Then
rng.Interior.Color = vbRed
End If
Next rng
Next i
End Sub


kodlarda nerede hata var ?
Yardımcı olursanız çok sevinirim

 

[YUSUF44]

Max ve Min'den sonraki alt çizgileri (_) kaldırıp dener misiniz?

 

[Açılın ben mühendisim]

Evet çalışyor teşekkür ederim