Visual Basic.NET - Colorear celda datagrid

Private Sub gridLista_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridLista.CellFormatting

    Select Case gridLista.Columns(e.ColumnIndex).Index

        Case 3

            Dim row As DataGridViewRow = gridLista.Rows(e.RowIndex)

            Dim cell As DataGridViewCell = gridLista.Rows(e.RowIndex).Cells(0)

            Select Case System.Convert.ToString(e.Value)

                Case "DISPONIBLE"

                    row.DefaultCellStyle.BackColor = Color.Honeydew

                Case Else

                    row.DefaultCellStyle.BackColor = Color.LightPink

                    cell.Style.BackColor = Color.LightCoral

            End Select

    End Select

End Sub

DGV_RepCon.Item(1, 1).Style.BackColor = Color.Green