Excel - punto y coma en replace

Hola,
estoy usando en una macro de Excel la siguiente función para reemplazar parte de fórmulas que tiene la Excel:

Selection.Replace What:=texto1, Replacement:=texto2, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Siempre me funciona correctamente excepto si dentro de la parte de las formulas que quiero reemplazar hay un punto y coma.
En cambio si reemplaza un punto y coma si lo que hay en la celda es texto y no una formula.
¿Hay alguna forma de hacer que funcione dentro de las formulas?.

quizá el problema radica en que el ; se usa para separar argumentos
de la función
pon un ejemplo completo de lo que no funciona...

Saludos desde Baires, JuanC

Te envío uno que funciona (no lleva punto y coma) y otro que no:

Este me cambia la refencia a una celda dentro de una fórmula sin problemas:

Selection.Replace What:="!$B$255", Replacement:="!$B$7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

En este quiero cambiar además de la referencia, la formula or por un and, y no funciona:

Selection.Replace What:="!$B$255;O", Replacement:="!$B$7;Y", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Muchas gracias por tu ayuda!!!!!!!!!!!!!!!!!

probá con
Selection.FormulaLocal = Replace(Selection.FormulaLocal, "!$B$255;O", "!$B$7;Y")

Saludos desde Baires, JuanC

Hola, tiene una pinta buenisima porque se ajusta 100% a lo que quiero hacer (reemplazar masivamente en muchas, muchisimas Excels una formula por otra). Por alguna razón me da un problema de "no coinciden los tipos). Te paso todo el código por si ves que me estoy equivocando en el select de las celdas:

For Each wk In Workbooks
wk.Activate
For Each sh In Worksheets
sh.Activate
sh.UsedRange.Select
Selection.FormulaLocal = Replace(Selection.FormulaLocal, "!$B$255;O", "!$B$7;Y")

Next
Next

Me da el mismo error si intento que me escriba para ver lo que está trayendo el selection.formulalocal:

Formula = Selection.FormulaLocal
MsgBox (Formula) ' aqui da error de no coinciden los tipos

Muchisimas gracias de nuevo por tu ayuda
(¿Dónde está Baires????. Perdón por la incultura general)

For Each wk In Workbooks
wk.Activate
For Each sh In Worksheets
sh.Activate
For Each cell In sh.UsedRange
cell.FormulaLocal = Replace(cell.FormulaLocal, "!$B$255;O", "!$B$7;Y")
Next
Next
Next

Saludos desde Baires (Buenos Aires - Argentina), JuanC

¡¡¡¡¡¡¡¡¡¡¡Lo Conseguí!!!!!!!! Muchisismas gracias.
El único problema que tenía ahora es que con el código que me enviabas tal cual el rendimiento era malo (olvidé decir que hablabamos de Excels muy pesadas), ir celda a celda era inpensable.
Lo resolví usando un find (sin punto y coma) y después el replace formulalocal que me envias:

Sub reemplazar()
Dim sh As Worksheet

For Each wk In Workbooks
wk.Activate
For Each sh In Worksheets
sh.Activate
sh.UsedRange.Select
Set RangeObj = Cells.Find(What:="!$B$255", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then
Else
RangeObj.Select
ActiveCell.FormulaLocal = Replace(ActiveCell.FormulaLocal, "!$B$255;O", "!$B$7;Y")
End If
Next
Next
End Sub

Muchas gracias por tu ayuda! Te debo un café!