Insert blank cell then move cell in that row only if the cell contains a specific word anywhere in cell.

[Livin404]

Hello,
I'm confident I'm going in the right direction, but I know I must be misssing something. In column A starting at A2 I may have on occaision have the word "Bay" either by itself or with other text. I quite simply want to insert a blank cell in Column A by shifting the Cells in that row to the left.

I've been trying to use
S

ub Move_Bay()
    Dim cell As Range
        Application.ScreenUpdating = False
        For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If InStr(cell.Text, "bay") > 0 Then
            cell.Offset(0, 1) = cell.Text
            cell.ClearContents
        End If
    Next cell
        Application.ScreenUpdating = True
   End Sub

I thought I could use an "*" but that has no affect. I'm thinking I may have to use the word "CASE" somewhere in the macro.

Thank you,

 

[Fluff]

How about

If InStr(1, cell.Text, "bay", vbTextCompare) > 0 Then

 

[Livin404]

Thank you, I thought I would need an "*" but apparently not.

Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback.