Worksheet_Change - Stack Space

[GDunn]

Hi,

I have a code which enters today's date in a cell when any changes are made on the sheet.
There are 5 sheets, all with the same code.
Since I introduced this code I get a 'Stack Space' issue.

Do I need to restrict the sheet range to use less memory?

Static Sub Worksheet_Change(ByVal Target As Range)

Dim LDate As String
LDate = Date

Range("P8").Value = Date

End Sub

 

[shg]

Each time you change a cell, the change event fires again unless you prevent it from doing so:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("P8").Value = Date
    Application.EnableEvents = True
End Sub

Comment: That code keeps you from being able to use Undo.

 

[GDunn]

Thanks shg

 

[shg]

You're welcome, good luck.