Mappe offen

nun möchte ich, dass die CheckBox felder abgeblendet werden
(CheckBox.Value = False) wenn die entsprechende Arbeitsmappe bereits geöffnet ist. in einer weiteren CheckBox möchte ich die Datei wieder schliessen können.

Nachstehende Funktion habe ich bereits kopiert

Function MAPPEOFFEN(MappeName As String) As Boolean
Dim stName As String
On Error GoTo Nonexistent
stName = Workbooks(MappeName).Name
MAPPEOFFEN = True
Exit Function
Nonexistent:
MAPPEOFFEN = False
End Function

Klicke ich auf nein erscheint ein Debugger und verweisst auf folgende Zeile
If CheckBox1 = True Then Workbooks.Open Filename:="O:\Pool\PPS\PPS AA.xls"
CheckBox1.Value = False

Danke
Gruss Pius