I am looking to create a Macro that says: look at all of the data in column E:E and if you find a cell that has the word "Ohio" in the string of information, then offset that cell by 3 to the right and make that cell equal to "4"

Sub Test()

Columns("E:E").Select
Dim rng As Range, cell As Range
Dim worksh As Worksheet
Set worksh = Worksheets("Axys Layout")
Set rng = Range("E:E")
For Each cell In rng
If InStr(1, cell, "Ohio", 1) Then
cell.Offset(, 3).Value = 4
End If
Next Ecell


End Sub

This is not working and I'm not even sure that I am on the right track! Any advice would be appreciated!!

Thanks,
Shannon