Macro: Abrir libro y/o saltar cuando este abierto

... para ejecutar una macro, tanto cuando esten los dos o más libros abiertos para saltar de un libro a otro
o como en el caso que no estuviera abierto, este comando ejecutara en ese momento la apertura de este segundo libro.
Tengo estas dos sintaxis por separado: Necesito unificarla para que sea condicional como lo expuesto ...
1) Este es el caso cuando los dos libros estan abiertos y se realiza el salto:
Sub Botón6_AlHacerClic()
Windows("SOLICITUD.xls").Activate
End Sub
2) En el caso que el otro libro no este abierto:

ChDir "C:\Carlos\Proyecto POEH\Proyecto Alcanfores\FERROCARRIL"
Workbooks.Open FileName:= _
"C:\Carlos\Proyecto POEH\Proyecto Alcanfores\FERROCARRIL\DATA.xls" _
, UpdateLinks:=0
End Sub

Al parecer hay algo que esto haciendo mal, y no lo encuentro
Esta es la sintaxis que aplicado, pero me sale esta ventana de error:
"Se ha producido el error '9' en tiempo de ejecucion: El subindice esta fuera del intervarlo"
y cuando ejecuto depurados me sombrea en amarillo: "Tmp = Workbooks("Formulario.xls").Name"
Sub Objeto2_AlHacerClic()
' Objeto2_AlHacerClic Macro
' Macro grabada el 16/11/2006 por
' On Error Resume Next
Tmp = Workbooks("Formulario.xls").Hoja1
If Err <> 0 Then Workbooks.Open "c:\a\Formulario.xls"
On Error GoTo 0
End Sub

Hola Héctor: He corregido la sintaxis tal como me los has explicado y
funciona para aperturar el otro libro, pero cuando ya esta abierto aún
no cumple el salto de libro con este misma macro.

Esta es la sintaxis corregida:

Sub Objeto2_AlHacerClic()
'
' Objeto2_AlHacerClic Macro
' Macro grabada el 16/11/2006 por
'

On Error Resume Next
Tmp = Workbooks("Formulario.xls").Name
If Err <> 0 Then Workbooks.Open FileName:="C:\a\Formulario.xls"
On Error GoTo 0
End Sub


Lo que no comprendo, es como puedo combinar estas dos fracciones de
sintaxis (sí con ello cumplo el segundo objetivo)

1) On Error GoTo 0
2) : ThisWorkbook.Activate

Una vez más muchas gracias por tu atención.

Carlos