Excel 2003 fel: Sub eller function har inte definierats

Hellö,
jag förösker skapa ett makro som:

1. raderar innehållert i cell B5
2. sparar
3. stänger dokumentet

Använde mig av "makro inspelaren" hos Excel 2003:

Sub Makro1()

    Range("B5").Select
    SelectionClearContents
    ActiveWorkbook.Save
   Application Quit
End Sub

Får fel utskrift:

Kompileringsfel:
Sub eller function har inte definierats

Konstigt att Excel ger ett förslag som excel själv finner felaktigt...

Taxam för hjälp
/Peter

Hej!
Prova följande:

Sub Makro1
    Range("B5").Select
    Selection.ClearContents
    ActiveWorkbook.Save
   Application.Quit

End sub

Du kan även ta och lägga in högst upp i den modulen:

Public fil

För att klara av att stänga hela excel.