Workbook nach Zellprüfung schließen

Sub Prüfung()
Sheets("Auswertung").Select
If Range("AF4")  1 Then
MsgBox "Sie haben keine Berechtigung diese Tabelle zu benutzen!", vbExclamation, " _
Hinweis"
Cancel = True
End If
End Sub

in vorstehendem Makro wird geprüft, ob der Zellwert in AF4 ungleich 1 ist, mit anschließendem Hinweisfenster. Das ganze soll beim Öffnen des Workbooks passieren.
Nun soll, wenn das Prüfungsergebnis 1 ist, das Workbook geschlossen werden. Ich bekomme dies leider nicht hin. Will mir dabei jemand helfen?
Vielen Dank und Gruß:
Konni