ColorIndex and Offset

[rinneii]

I need to use the offset property to get color in another column. This is what I have so far:

Option Explicit
Dim FinalRow As Integer
Dim i As Integer
Sub Colorfruit()
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To FinalRow
If Cells(i, 1).Value = "Grapefruit" Then
With Cells(i, 1).Offset(, 1)
If .Value >= 8 Then
.Interior.ColorIndex = 35
End If
End With
End If
Next i
End Sub

My goal is to have only 1 With block. In total I have 3 columns A-C.

Any help would be very much appreciated!

 

[rinneii]

Here's a picture of my spreadsheet: https://sta.sh/01b079nwism2

 

[Phuoc]

Try

If .Value >= 8 Then
Cells(i, 1).Resize(1, 3).Interior.ColorIndex = 35

 

[rinneii]

That worked! Thank you so much!