Yeni WorkSheet eklendiğinde A1 hücresine tarih eklenmesi

[rekasparov]

Merhaba yaklaşık 20-30 adet worksheet var her yeni worksheet eklediğimde yeni eklenen worksheet'in A1 hücresine o anki tarihin otomatik olarak gelmesini fakat bu gelen tarih değerinin diğer worksheet 'deki A1 hücresini etkilemeyen bir macroyu veya macro benzeri bir yapıyı nasıl yazabilirim ? teşekkürler.

 

[hamitcan]

ThisWorkbook kısmına ekleyin.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.[a1] = Date
End Sub

 

[rekasparov]

çok teşekkür ederim...