Option Explicit

Option Compare Text
Sub Safeway()
    Dim rng As Range, c As Range
    Set rng = Range("B3:F14") 'Change this range to your actual range of data.
    For Each c In rng
        If InStr(c, "Safeway") > 0 Then
            c.EntireRow.Interior.ColorIndex = 6
        End If
    Next c
    MsgBox "Action Completed"
End Sub