Macro Find/Replace

[Jette3173]

Hello,

I am needing to add to my existing Macro to replace the value in a column after filtering for the range.
I have 3 users that I need it to find (column A), then replace the text in Column B. (example below to protect privacy)

User	All CUR Complete
111	Not Complete
111	Not Complete
111	Not Complete
222	Not Complete
222	Not Complete
222	Not Complete
333	Not Complete
333	Not Complete
333	Not Complete

I've tried the following code but I can only get the filter, it will not replace the text from "Not Complete" to "Complete"

With ActiveSheet
        If .AutoFilterMode Then .AutoFilterMode = False
        .Range("A1:B" & .Range("B" & Rows.Count).Row).AutoFilter 1, Array("111", "222", "333"), xlFilterValues
        .AutoFilter.Range.Offset(1).ActiveSheet.Range("B:B").Replace "Not Complete", "Complete"
        .ShowAllData
End With

 

[Fuji]

Try change to

        .AutoFilter.Range.Offset(1).Columns(2).Replace "Not Complete", "Complete"

 

[Jette3173]

Try change to

        .AutoFilter.Range.Offset(1).Columns(2).Replace "Not Complete", "Complete"

That worked thank you!
Curious that setting the range to the column worked in other parts of the Macro.