Dim wkbkdestination As Workbook
Dim destsheet As Worksheet

For Each ThisWorkSheet In wkbkorigin.Worksheets 
    'this throws subscript out of range if there is not a sheet in the destination 
    'workbook that has the same name as the current sheet in the origin workbook.
    Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) 
Next

Básicamente, recorro todas las hojas del libro de trabajo de origen y luego las coloco destsheeten el libro de trabajo de destino en la hoja con el mismo nombre que la que se está iterando actualmente en el libro de trabajo de origen.

¿Cómo puedo probar si existe esa hoja? Algo como:

If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then 

A algunas personas no les gusta este enfoque debido a un uso "inapropiado" del manejo de errores, pero creo que se considera aceptable en VBA ... Un enfoque alternativo es recorrer todas las hojas hasta encontrar una coincidencia.

Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet

    If wb Is Nothing Then Set wb = ThisWorkbook
    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function

Si está específicamente interesado solo en hojas de trabajo, puede usar una simple llamada Evaluate:

Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function

No necesita el manejo de errores para lograr esto. Todo lo que tiene que hacer es iterar sobre todas las hojas de trabajo y verificar si existe el nombre especificado:

For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "MySheet" Then
        exists = True
    End If
Next i

If Not exists Then
    Worksheets.Add.Name = "MySheet"
End If

Como buscar miembros de una colección es un problema general, aquí hay una versión resumida de la respuesta de Tim:

La función contiene (objCollection como objeto, strName como cadena) como booleano
    Dim o como objeto
    En caso de error, reanudar siguiente
    establecer o = objCollection (strName)
    Contiene = (Err.Number = 0)
    Err.Clear
 Función final

Esta función se puede utilizar con cualquier colección como objeto ( Shapes, Range, Names, Workbooks, etc.).

Para comprobar la existencia de una hoja, utilice If Contains(Sheets, "SheetName") ...

Corregido: Sin manejo de errores:

Function CheckIfSheetExists(SheetName As String) As Boolean
      CheckIfSheetExists = False
      For Each WS In Worksheets
        If SheetName = WS.name Then
          CheckIfSheetExists = True
          Exit Function
        End If
      Next WS
End Function

En caso de que alguien quiera evitar VBA y probar si una hoja de trabajo existe puramente dentro de una fórmula de celda, es posible usar las funciones ISREFy INDIRECT:

=ISREF(INDIRECT("SheetName!A1"))

Esto volverá TRUEsi el libro contiene una hoja llamada SheetNamey de lo FALSEcontrario.

Escribí este:

Function sheetExist(sSheet As String) As Boolean
On Error Resume Next
sheetExist = (ActiveWorkbook.Sheets(sSheet).Index > 0)
End Function

Mi solución se parece mucho a Tims pero también funciona en el caso de hojas que no son hojas de trabajo: gráficos

Public Function SheetExists(strSheetName As String, Optional wbWorkbook As Workbook) As Boolean
    If wbWorkbook Is Nothing Then Set wbWorkbook = ActiveWorkbook 'or ThisWorkbook - whichever appropriate
    Dim obj As Object
    On Error GoTo HandleError
    Set obj = wbWorkbook.Sheets(strSheetName)
    SheetExists = True
    Exit Function
HandleError:
    SheetExists = False
End Function

.

Pon la prueba en una función y podrás reutilizarla y tendrás una mejor legibilidad del código.

NO utilice "En caso de error, reanudar a continuación", ya que puede entrar en conflicto con otra parte de su código.

Sub DoesTheSheetExists()
    If SheetExist("SheetName") Then
        Debug.Print "The Sheet Exists"
    Else
        Debug.Print "The Sheet Does NOT Exists"
    End If
End Sub

Function SheetExist(strSheetName As String) As Boolean
    Dim i As Integer

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = strSheetName Then
            SheetExist = True
            Exit Function
        End If
    Next i
End Function

Muchos años tarde, pero solo necesitaba hacer esto y no me gustó ninguna de las soluciones publicadas ... ¡Así que inventé una, todo gracias a la magia de (gesto de las manos del arco iris de Bob Esponja) "Evaluar ()"!

Evaluate("IsError(" & vSheetName & "!1:1)")

Devuelve VERDADERO si la Hoja NO existe; FALSO si la hoja SÍ existe. Puede sustituir el rango que desee por "1: 1", pero desaconsejo usar una sola celda, porque si contiene un error (por ejemplo, # N / A), devolverá True.

wsExistsFunción compacta _{^{(¡ sin depender del manejo de errores!)}}

Aquí hay una función corta y simple que no se basa en el manejo de errores para determinar si existe una hoja de trabajo (¡ y si se declara correctamente que funciona en cualquier situación!)

Function wsExists(wsName As String) As Boolean
    Dim ws: For Each ws In Sheets
    wsExists = (wsName = ws.Name): If wsExists Then Exit Function
    Next ws
End Function

Ejemplo de uso:

El siguiente ejemplo agrega una nueva hoja de trabajo denominada myNewSheet, si aún no existe:

If Not wsExists("myNewSheet") Then Sheets.Add.Name = "myNewSheet"

Más información:

• MSDN: For Each… NextDeclaración (VBA)
• MSDN: ExitDeclaración (VBA)
• MSDN: Operadores de comparación (VBA)

¿Por qué no utilizar un pequeño bucle para determinar si existe la hoja de trabajo nombrada? Diga si estaba buscando una hoja de trabajo llamada "Hoja1" en el libro de trabajo abierto actualmente.

Dim wb as Workbook
Dim ws as Worksheet

Set wb = ActiveWorkbook

For Each ws in wb.Worksheets

    if ws.Name = "Sheet1" then
        'Do something here
    End if

Next

Si eres fanático WorksheetFunction.o trabajas desde un país que no es inglés con un Excel que no es inglés, esta es una buena solución, que funciona:

WorksheetFunction.IsErr(Evaluate("'" & wsName & "'!A1"))

O en una función como esta:

Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Not WorksheetFunction.IsErr(Evaluate("'" & sName & "'!A1"))
End Function

Public Function WorkSheetExists(ByVal strName As String) As Boolean
   On Error Resume Next
   WorkSheetExists = Not Worksheets(strName) Is Nothing
End Function

sub test_sheet()

 If Not WorkSheetExists("SheetName") Then
 MsgBox "Not available"
Else MsgBox "Available"
End If

End Sub

    For Each Sheet In Worksheets
    If UCase(Sheet.Name) = "TEMP" Then
    'Your Code when the match is True
        Application.DisplayAlerts = False
        Sheet.Delete
        Application.DisplayAlerts = True
    '-----------------------------------
    End If
Next Sheet

Cambie "Datos" a cualquier nombre de hoja que esté probando ...

On Error Resume Next 

Set DataSheet = Sheets("Data")

If DataSheet Is Nothing Then

     Sheets.Add(after:=ActiveSheet).Name = "Data"
     ''or whatever alternate code you want to execute''
End If

On Error GoTo 0

Sin ninguna duda de que la función anterior puede funcionar, acabo de terminar con el siguiente código que funciona bastante bien:

Sub Sheet_exist ()
On Error Resume Next
If Sheets("" & Range("Sheet_Name") & "") Is Nothing Then
    MsgBox "doesnt exist"
Else
    MsgBox "exist"
End if
End sub

Nota: Sheets_Namees donde le pido al usuario que ingrese el nombre, por lo que puede que este no sea el mismo para usted.

Hice otra cosa: eliminar una hoja solo si existe, no para obtener un error si no existe:

Excel.DisplayAlerts = False 
Dim WS
For Each WS In Excel.Worksheets
    If WS.name = "Sheet2" Then
        Excel.sheets("Sheet2").Delete
        Exit For
    End If
Next
Excel.DisplayAlerts = True

Se me ocurrió una forma fácil de hacerlo, pero no creé un nuevo sub para ello. En su lugar, simplemente "ejecuté una verificación" dentro del submarino en el que estaba trabajando. Suponiendo que el nombre de la hoja que estamos buscando es "Sheet_Exist" y solo queremos activarlo si lo encontramos:

Dim SheetCounter As Integer

SheetCounter = 1

Do Until Sheets(SheetCounter).Name = "Sheet_Exist" Or SheetCounter = Sheets.Count + 1
 SheetCounter = SheetCounter +1
Loop
If SheetCounter < Sheets.Count + 1 Then
 Sheets("Sheet_Exist").Activate
Else
 MsgBox("Worksheet ""Sheet_Exist"" was NOT found")
End If

También agregué una ventana emergente para cuando la hoja no existe.

Sé que es una publicación antigua, pero aquí hay otra solución simple que es rápida.

Public Function worksheetExists(ByVal wb As Workbook, ByVal sheetNameStr As String) As Boolean

On Error Resume Next
worksheetExists = (wb.Worksheets(sheetNameStr).Name <> "")
Err.Clear: On Error GoTo 0

End Function

Corto y limpio:

Function IsSheet(n$) As Boolean
    IsSheet = Not IsError(Evaluate(n & "!a1"))
End Function

De hecho, tenía una forma sencilla de verificar si la hoja existe y luego ejecutar alguna instrucción:

En mi caso, quería eliminar la hoja y luego volver a crear la misma hoja con el mismo nombre, pero el código se interrumpió si el programa no pudo eliminar la hoja porque ya estaba eliminada.

Sub Foo ()

    Application.DisplayAlerts = False

    On Error GoTo instructions
    Sheets("NAME OF THE SHEET").Delete

    instructions:

    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "NAME OF THE SHEET"

End Sub