VBA - gem problem

Hej

Jeg har en projektmappe som danner basis for opstart af andre mapper.
Når mappen forlades ønsker jeg at slutte excel og sikre mig at der kun er nævnte projektmappe åbent. Hvis der er > en projektmappe åbent skal brugeren ha' beskede om at lukke denne inden excel afsluttes. Jeg har lavet følgende VBA som imidlertid ikke fungerer - hvda gør jeg galt?

Sub ActiveWorkbookClose()
    On Error Resume Next
Dim WorkbookName As String
   
    If Len(Application.Workbooks(WorkbookName).Name) > 1 Then
    MsgBox ("Du har mere end ét regneark åbent - luk det først!")
   
    Else:
    ThisWorkbook.Saved = True
    Application.Quit

    End If
   
End Sub


vh Steen