Hjælp til fejl i makro

Hej,

Er der nogen der kan fortælle mig hvad jeg gør forkert her:

Private Sub Workbook_Open()
End Sub
Sub Navngiv_ark_celle_B9()
Sheets(ActiveSheet.Name).Name = Range("B9")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
If svar = vbOK Then
Sheets("Faktura").PrintOut
Sheets("Faktura").Range("B9") = Sheets("Faktura").Range("B9") + 1
End If
Application.EnableEvents = True
End Sub

Det jeg vil er:

Ved åbning af ark ændres fraktura nr. (det sker allerede)
SAMTIDIG skal arket ændre navn til det faktura nr (det sker ikke :-S)

Det skal lige siges at jeg er MEGET nybegynder - så jeg skal have det skåret ud i pap :-)