açılışta bir dğer artırma

[cobanoglu]

Private Sub Workbooks_open()
i = Sheets("sabit").Range("a1")
Sheets("sabit").Range("a1").Value = (i + 1)
End Sub
Yukarıdaki kodu vb penceresinde run dediğimde değeri bir artırıyor ama çalışma kitabını kapatıp açtığımda artırmıyor. nerede hata yapıyorum bi bakarmısınız teşekkürler.

 

[alpi]

Hatanız şu satırda
Private Sub Workbooks_open()

Doğrusu
Private Sub Workbook_open()

 

[cobanoglu]

teşekkür ediyorum...