Busqueda De Hoja

[Marco Moreno]

Quisiera saber un código que busque si en el libo existe una hoja con el mismo nombre, y que si es cierto, que la reemplaze y si no lo es que la guarde

[3pies]

¿Una hoja con el mismo nombre?. ¿Con el mismo nombre que el libro, supongo?.

Mira a ver si es esto lo que quieres...

Código:

Sub Auto_open()
'Miramos el nombre que tiene el libro, y
'lo pasamos a una variable llamada "nombre",
'pero previamente le quitamos la extensión ".xls"
nombre = ThisWorkbook.Name
'nos quedamos con el nombre del libro, y omitimos
'los 4 últimos caracteres ".xls"
nombre = Left(nombre, Len(nombre) - 4)
'Nos desplazamos hasta la primera hoja del libro
'(da igual el nombre que tenga la hoja, pues siempre será Hoja1)
Hoja1.Select
'Recorremos todo el libro en búsqueda de todas las hojas
For i = 1 To Sheets.Count
   'Comprobamos que cada una de las hojas no coincida con el nombre del libro
    If nombre = ActiveSheet.Name Then
       'Si el nombre del libro coincide con el de la hoja,
        'le cambiamos el nombre a esta última, y le añadimos por ejemplo, una "X"
        ActiveSheet.Name = ActiveSheet.Name & "X"
    End If
    'Si no estamos en la última hoja, que avance a la siguiente pestaña (u hoja)
    If i < Sheets.Count Then ActiveSheet.Next.Select
    'Volvemos a recorrer el bucle
Next
'Volvemos a la primera hoja
Hoja1.Select
End Sub

Salu2