Arbeitsmappe ist nicht sichtbar

Sub Starte_WOK()
Dim appOffice As Workbook
Application.ScreenUpdating = False
Set appOffice = GetObject("K:\Allg_dat\TRANSFER\HST\ABT11\Positionsnummern mit Vorschlag RF- _
Zuordnung_050907.xls")
' 'appOffice.Visible = True
'Workbooks.Open "K:\Allg_dat\TRANSFER\HST\ABT11\Positionsnummern mit Vorschlag RF- _
Zuordnung_050907.xls", False
End Sub

Danach

Sub Schliesse_WOK()
Set appOffice = Nothing
Workbooks("Positionsnummern mit Vorschlag RF-Zuordnung_050907.xls").Close 'savechanges:= _
False
'ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Wenn ich jetzt die Arbeitsmappe normal öffne, ist sie zwar im VBA Teil vorhanden, jedoch in der Normalansicht inicht vorhanden.
Wo habe ich hier bitte den Fehler gemacht und wie mache ich diese Arbeitsmappe wieder sichtbar?
Danke
Josef