Si no existe hoja "nombre", crearla, en VBA

Otra forma seria

On Error Resume Next
' activela, si existe no pasa nada
Sheets(NombreHoja).Activate
If Err Then
Worksheets.Add
ActiveSheet.Name=NombreHoja
End If
On Error Goto 0

"Fernando Arroyo" escribió en el mensaje
news:
"Tito" escribió en el mensaje
news:

Saludos al entrar en el grupo. He mirado los mensajes y no veo este

asunto,

por eso lo abro: quiero saber cómo detectar por programa VBA si en un

libro

xls existe una hoja con un "nombre" determinado.
En caso contrario, crearla.

Hay varias formas de hacerlo. Una de ellas, que tiene la ventaja de no tener
que trabajar con For Each podría ser:

If IsError([NombreHoja!IV65536]) Then
Worksheets.Add
ActiveSheet.Name = "NombreHoja"
End If

El código fallaría si existiera una hoja llamada NombreHoja y su celda
IV65536 tuviera un valor de error, pero ¡ya sería casualidad! :-))
Un saludo.


Fernando Arroyo
MS MVP - Excel