Saber si una hoja existe!!

Inserta una hoja nueva y ponle el nombre que quieras. Si
ese nombre ya lo tiene otra hoja, Excel "se quejará".

:-)

Que tal!!

Cómo puedo saber si una hoja ya existe, en caso

contrario insertar una

nueva!!!

Existe algun método para esto o tengo que barrer todas

las hojas por su

nombre para saber????

Gracias!!!


.

Ok Beto, de lujo, Gracias!!!


"Beto" escribió en el mensaje
news:

Snash wrote:

> Que tal!!
>
> Cómo puedo saber si una hoja ya existe, en caso contrario insertar una
> nueva!!!
>
> Existe algun método para esto o tengo que barrer todas las hojas por su
> nombre para saber????

Tomado directamente desde google groups:

Sub Existe_Hoja()
Dim sh As Worksheet
On Error Resume Next
Set sh = ThisWorkbook.Worksheets("HojaDePrueba")
On Error GoTo 0
If sh Is Nothing Then
Set sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
sh.Name = "HojaDePrueba"
End If
End Sub

Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

Snash wrote:

Que tal!!

Cómo puedo saber si una hoja ya existe, en caso contrario insertar una
nueva!!!

Existe algun método para esto o tengo que barrer todas las hojas por su
nombre para saber????

Tomado directamente desde google groups:

Sub Existe_Hoja()
Dim sh As Worksheet
On Error Resume Next
Set sh = ThisWorkbook.Worksheets("HojaDePrueba")
On Error GoTo 0
If sh Is Nothing Then
Set sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
sh.Name = "HojaDePrueba"
End If
End Sub

Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.