Selección de una hoja con el nombre de una celda

[mrocf]

Hola! Plinio_lo. Intenta con:

Código:

Sub Macro1()
Dim Celda As Range
Workbooks.Open Filename:="J:\archivo.xls"
nombredehoja = "Aquí va el nombre de la forma que sea que lo captures"

On Error Resume Next
  Set Celda = Workbooks("archivo.xls").Worksheets(nombredehoja).[a1]
On Error GoTo 0

If Celda Is Nothing Then
  MsgBox "Rutina si <" & nombredehoja & "> NO existe"
Else
  MsgBox "Rutina si <" & nombredehoja & "> existe"
End If
Set Celda = Nothing

End Sub

Saludos, Cacho.