Доброго времени суток. Подскажите, пожалуйста: есть макрос:  
 
Sub Макрос1()  
'  
' Макрос1 Макрос  
' SAP  
'  
With Columns("B")   'область поиска  
   Set r = .Find(What:="ПО", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False)  
   If r Is Nothing Then Exit Sub  
   s = r.Address  
   Do  
       r = Replace(r, "ПО", "PO", , , vbTextCompare) & "*"  
       Set r = .FindNext®  
   Loop Until r Is Nothing  
End With  
End Sub  
Sub Макрос2()  
'  
' Макрос2 Макрос  
' 1C  
'  
 
'  
With Columns("B")   'область поиска  
   Set r = .Find(What:="PO", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False)  
   If r Is Nothing Then Exit Sub  
   s = r.Address  
   Do  
       If Right(r, 1) = "*" Then r = Left(r, Len® - 1)  
       r = Replace(r, "PO", "ПО", , , vbTextCompare)  
       Set r = .FindNext®  
   Loop Until r Is Nothing  
End With  
End Sub  
 
Помогите, пожалуйста, как дописать чтоб менялись и ПО на PO, и ЙО на YO, и ОП на OP (и обратно)

{quote}{login=k61}{date=27.04.2011 04:52}{thema=re: чтоб менялись и ПО на PO, и ЙО на YO, и ОП на OP (и обратно)}{post}так?{/post}{/quote}  
 
Да, только звездочка не добавляется...