Para Héctor Miguel

hola, Brenda !

(creo que...) "seguimos como antes", me explico:
alguno de los libros que necesitas (abierto en la sesion) se llama "nombre del libro.xls" ?????

en caso de que no... solo cambia la primer linea del procedimiento (sub simula(...)

de esto:
If Not EsLibroAbierto("nombre del libro.xls") _

a esto:
If Not EsLibroAbierto("simula.xls") _

saludos,
hector.

__ OP __
> La funcion y el llamado a la misma queda asi:
>
> Function EsLibroAbierto(Libro As String) As Boolean
> On Error Resume Next
> EsLibroAbierto = Len(Workbooks(Libro).Name)
> End Function
> Sub Simula()
> If Not EsLibroAbierto("nombre del libro.xls") _
> Then Workbooks.Open "C:\Brenda\Simula.xls" _
> Else Workbooks("Simula.xls").Activate
> End Sub
>
> Sin embargo, cada vez que hago un pequeno cambio al libro abierto Simula y vuelvo a pulsar el boton
> me aparece este mensaje: "Simula.xls" ya esta abierto, si lo vuelve a abrir perdera los cambios ...

... Ya todo funciona ...