Tælle op, når man klikker på "print" knappen

Hej

Jeg har et skema i Excel XP. JEg vil mægtig gerne have en funktion lavet, således at jeg kan klikke på printknappen, hvorefter f.eks celle A1, er en værdi højere end tidligere. F.eks står der i celle A1: 100, og efter jeg trykker på print knappen, så står der nu i celle A1:101.

Jeg har lavet følgende kode, som virker fint, hvis jeg gemmer og åbner excel, men mangler noget tilhørende kode, som kan "lytte" på printknap funktionen. Er der nogen som kan hjælpe?

Private Sub Workbook_Open()
  Range("a1").Value = Range("a1").Value + 1
End Sub


Mvh
Regin