Verwijderen private sub

[Jeroen123456]

In een bepaalde excel sheet laat ik bij openen in een bepaald veld de datum van de betreffende dag invullen.

Private Sub Workbook_Open()
   [z2].Value = Date
End Sub

Als deze sheet is ingevuld wordt deze altijd onder een andere naam opgeslagen.

Alleen als de ingevulde sheet een paar dagen later nog eens geopend wordt moet er de originele datum van invullen blijven staan.
Door de private sub wordt er bij openen telkens opnieuw "vandaag" ingevuld.

Iemand een idee hoe ik dit kan ondervangen?

Kan ik met een macro private sub verwijderen?

 

[rebmog]

Test eens:

Private Sub Workbook_Open()
   If [z2].Value="" Then [z2].Value=Date
End Sub

 

[Jeroen123456]

Oplossing simpel

:thumb:


Bedankt rebmog