VBA - is there a way to clean up this code?

[storemannequin]

I recorded this find & replace with the recorder than added in a variable of my own, but is there a way to do this w/o resorting to the recorder?

Sub ReplaceTitles()
FC = Cells(1, Columns.Count).End(xlToLeft).Column

Set Rng = Range(Cells(1, 1), Cells(1, FC))

With Rng

.Replace What:="Matrix", Replacement:="Overhead", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Net ", Replacement:="Catch", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Little league", Replacement:= _
"ASP", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

End With


End Sub

 

[wigi]

Sub ReplaceTitles()
    With [A1].CurrentRegion.Rows(1)
        .Replace "Matrix", "Overhead", xlPart
        .Replace "Net ", "Catch"
        .Replace "Little league", "ASP"
    End With
End Sub

 

[Norie]

What do you mean?

How us that code resorting to the recorder?

It might have been generated by it but that's it, the recorder isn't anything to do with it now.