juokseva lähetenumero

moduuliin...
avatessa lisää lukua

Sub Auto_Open()
Range("A1") = Range("A1") 1
End Sub

suljettaessa lisää lukua

Sub Auto_Close()
Range("A1") = Range("A1") 1
End Sub

vaihtoehtoisesti ThisWorkbook moduuliin...

lisää lukua suljettaessa

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1") = Range("A1") 1
End Sub

lisää lukua tulostettaessa

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") 1
End Sub

lisää lukua tallennettaessa

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Range("A1") 1
End Sub

käytä vaan yhtä noista ja oman makronhan voi aina tehdä...
vaihtoehtoja riittää

Sub Joku()
Range("A1") = Range("A1") 1
End Sub

Keep Excelling ;-)
@Kunde