Es que no puedes hacerlo todo en un solo paso.
Código vb:
Ver originalSub AbrirLibro(ByVal archivo as String, ByVal Hoja as String)
Dim wk As Workbook
Set wk = Workbooks.Open(archivo) ' Abres el archivo, creando una referencia
wk.Sheets(hoja).Activate ' Activas la hoja deseada
End Sub