Finding word within a text string

[Livin404]

Greetings, I have a word in Column F that if present I need another word to be placed in Column E. I have the formula for if it is just one word, but I need to change it slightly so if the word in at the beginning, end, or middle the word will still be detected. If located N/A will be placed in Column E. The following is perfect if "Post" is the only word in Column F; however I need the code to do a little more. Thank you,

Sub NA_For_Seat_Release()
    Dim i As Long
    For i = 6 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    Select Case ActiveSheet.Cells(i, 6).Value
    Case "POST"
ActiveSheet.Range("E" & i) = "N/A"
End Select
Next i
End Sub

 

[Fluff]

How about

Sub NA_For_Seat_Release()
   Dim Cl As Range
   For Each Cl In ActiveSheet.Range("F6:F" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
      If Cl.Value Like "*POST*" Then Cl.Offset(, -1).Value = "N/A"
   Next Cl
End Sub

 

[Livin404]

Exactly what I needed, Thank you.

 

[Fluff]

You're welcome & thanks for the feedback.