Replace VBA

[billandrew]

Ia a way to combine the following two codes.

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

[TABLE="width: 72"]
<colgroup><col width="72" style="width:54pt"></colgroup><tbody> [TR]
[TD="class: xl63"] [/TD]
[/TR]
[TR]
[TD="class: xl63"] Selection.Replace What:="th", Replacement:="", LookAt:=xlPart, _[/TD]
[/TR]
[TR]
[TD="class: xl63"] SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _[/TD]
[/TR]
[TR]
[TD="class: xl63"] ReplaceFormat:=False[/TD]
[/TR]
[TR]
[TD="class: xl63"] [/TD]
[/TR]
[TR]
[TD="class: xl63"] End Sub[/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 72"]
<colgroup><col width="72" style="width:54pt"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 72"]Sub Replace_rd()[/TD]
[/TR]
[TR]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl65"] Selection.Replace What:="rd", Replacement:="", LookAt:=xlPart, _[/TD]
[/TR]
[TR]
[TD="class: xl65"] SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _[/TD]
[/TR]
[TR]
[TD="class: xl65"] ReplaceFormat:=False[/TD]
[/TR]
[TR]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl65"] End Sub[/TD]
[/TR]
</tbody>[/TABLE]

 

[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