Edición de todos los libros de una carpeta

Hola a tod@s

Me veo obligado a editar todos los libros reemplazando una palabra por otra,
en principio lo tengo resuelto, recorro sin problema libro tras libro y
mediante la siguiente rutina lo hago, peeero, tenía que haber un pero ;-) si
el libro a editar tiene un procedimiento que habra un formulario de arranque
se me queda frito esperando..., ¿puedo evitarlo de algún modo?, también me
ocurre con los que tienen vinculos, pero al menos en esos puedo aceptar o
cancelar y continua sin problemas.

Gracias anticipadas

Sub CambiaServidor(strRuta As String)
Dim Hoja As Worksheet, _
Libro As Workbook

' recorro el libro reemplazando en todas las hojas el nombre del servidor
viejo por el nuevo
Set Libro = Workbooks.Open(strRuta)
Libro.SaveAs strRuta & ".bak"
For Each Hoja In Libro.Worksheets
Cells.Replace What:="uno", Replacement:="otro", LookAt:=xlPart
Next
Libro.Close SaveChanges:=True
End Sub

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio