Objektvariable oder Withblockvariable

Private Sub cmbAbbrechen_Click()
ActiveWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else UserForm1.Close
Unload UserForm1
End Sub

funktioniert alles einwandfrei.
Änder ich jedoch diesen Code auf

Private Sub cmbAbbrechen_Click()
ActiveWorkbook.Saved = True
Unload UserForm1
End Sub

kommt die Fehlermeldung.