Her Gün Sayının Otomatik Artması

[simyah]

Merabalar..Ben Bir Hücredeki sayının her gün otomatik olarak artmasını istiyorum.misal A20 Hücresinde 20 yazıyor, ertesi gün bunun kendiliğinden 21 olmasını istiyorum.24 saatte bir artıcak..basit gelebilir ama yapamadım, aradım bulamadım:frown:yardımcı olrsanız sewinirim..:redface:

 

[hamitcan]

Not: Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_Open()
    If Date > [a2] Then
        [b2] = [b2] + 1
        [a2] = Date
        ActiveWorkbook.Save
    End If
End Sub