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

[Plinio_lo]

Hola amigos!!

Pues resulta que estoy elaborando un programa y me quedado atrancado.

He programado una macro para que me busque el valor de una celda en una columna, si no lo encuentra, crea una hoja nueva en otro archivo con el nombre de ese valor.

Y si lo encuentra, quería que me me seleccionara la hoja correspondiente (que ya debe existir) ... y ahí es donde me da error!!



Workbooks.Open Filename:="J:\archivo.xls"

nombredehoja = <<celda donde se encuentra el valor-nombre de la hoja a seleccionar>>

Workbooks("archivo.xls").Worksheets("nombredehoja" ).Range("a13").Select 'selección de la hoja y celda donde quiero poner el dato


.... y no me deja!!!


Echarme un cable, porfa!!!

GRACIAAASSS..

[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.