worksheet vba does not work

[Jeffreyxx01]

Hi guys,

I tried to make this VBA code using the record and change some thing in,
Now it does not work,

Sub Find()
'
' find Macro
'


'
    Worksheets("PipelineData").Columns("D:D").Select
    Selection.Replace What:="In Progress", Replacement:="Assessment", LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Can someone help,
Thanks

 

[Jeffreyxx01]

Thank you for your help,
very glad

 

[Joe4]

You are welcome.