Code to Find and Enter Text into Offset Cell for Multiple Sheets

[Phillycheese5]

Hi,
I have a file with 12 sheets, each has a list of sectors and also an "other" category in column A. My goal would be to find where the category is "other" in column A, and to put "no data" into column D. I have tried some code that I found but I cannot make it work without all sorts of errors (so there is no code in the uploaded file).
Any suggestions would be appreciated.

Thanks,
Phillycheese

[daffodil11]

Something like this should be able to accomplish what you're trying to do:

Sub NoData()

Dim ws As Worksheet
Dim rngCell As Range

For Each ws In ActiveWorkbook.Worksheets
    For Each rngCell In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If rngCell = "Other" Then rngCell.Offset(, 3) = "no data"
    Next
Next

End Sub

This runs through all worksheets in the workbook, and searches from A1 to last populated cell in Column A for the word Other, and then populates the cell 3 columns to the right with 'no data'.

[Phillycheese5]

Hey Daffodil,
I put the code in my file and it works great on the first worksheet, but doesn't make changes to the other worksheets. Is there something I need to adjust?

Thanks,
Phillycheese

[AB33]

Another option.

[Phillycheese5]

Hey AB33,
Thanks for this! As with all the normal Excel stuff, there's always a few ways of tackling issues! I tested this and it goes through all the sheets which is great.
Thanks again,
Phillycheese