Verificar si una hoja EXCEL existe

Esta función nos permitirá conocer si una determinada hoja existe dentro de un libro EXCEL. La función recibirá cómo parámetro el nombre de la hoja a buscar dentro del libro, y devolverá verdadero en caso de que ésta exista o falso en caso contrario.

El código de la función es el siguiente:

Private Function SheetExists(strSheetName As String) As Boolean
On Error Resume Next

Dim objSheet as Object

' Seleccionamos la hoja de cálculo
Set objSheet = ActiveWorkbook.Sheets(strSheetName)

' Comprobamos si existe o no la hoja
If Err = 0 Then
SheetExists = True
Else
SheetExists = False
End If

End Function