Exceldatei auf entferntem Rechner schliessen

Sub journal_schliessen()
'Dim bExists As Boolean
'Dim oWorkbook As Object
'' Prüfen ob Journal bereits geöffnet ist
'bExists = False
'With Application
'  For Each oWorkbook In .Workbooks
'    If UCase$(oWorkbook.Name) = "journal.xls" Then
'      ' Jetzt aktivieren
'      Windows(oWorkbook.Name).Activate
'      bExists = True
'      Exit For
'    End If
'  Next
'End With
'' Journal schliessen, wenn geöffnet
'    If Not bExists Then
'        On Error Resume Next
'        Workbooks("Journal.xls").save
'        Workbooks("Journal.xls").Close
'        On Error GoTo 0
'    End If
'End Sub