Replace VBA

[billandrew]

Ia a way to combine the following two codes.

i.e. Replace "th" or "rd" with ""

Selection.Replace What:="th", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

<colgroup><col width="72" style="width:54pt"></colgroup><tbody>
</tbody>

Sub Replace_rd()

Selection.Replace What:="rd", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

<colgroup><col width="72" style="width:54pt"> </colgroup><tbody>
</tbody>

 

[Rick Rothstein]

Give this a try...

[table="width: 500"]
[tr]
	[td]Sub Replace_rd()
  Dim Ord As Variant
  For Each Ord In Array("rd", "th")
    Selection.Replace What:=Ord, Replacement:="", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=True, _
                      SearchFormat:=False, ReplaceFormat:=False
  Next
End Sub[/td]
[/tr]
[/table]

 

[billandrew]

Mr.Rothstein

If the response is from you I know it will work.

Fantastic

Thank You sir