Code:
Dim found As Boolean = False
For Each row As DataGridViewRow In Me.LotsDataGridView.Rows
    For Each c As DataGridViewCell In row.Cells
        If c.Style.BackColor = Color.Red Then found = True
    Next
Next

If found Then
    MessageBox.Show("found red cell")
End If