Renombrar Nombre de Hojas

[JAMS1]

Yo tengo una X cantidad de hojas en un libro, tengo la necesidad de cambiarle el nombre a todas y cada una de ellas, tengo un ciclo para que cambie automaticamente el nombre, el problema es ¿Como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Hola JAMS1,

Prueba esto:

Function HojaExiste(Nombre As String) As Boolean
    On Error Resume Next
    Set sh = Sheets(Nombre)
    HojaExiste = Not sh Is Nothing
End Function

'Ejemplo de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JAMS1]

pero el on error se activa en cualquier caso de error...... yo necesito que solo sea en ese caso

 

[KL]

Hola de nuevo,

No se si entiendo cabalmente lo que quieres decir, pero prueba esto:

Function HojaExiste(Nombre As String) As Boolean 
    On Error Resume Next 
    Set sh = Sheets(Nombre)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JAMS1]

Gracias KL....... por segunda vez me has ayudado, estoy a la orden si en algo te puedo ayudar