Tracking changes to a column and preserving Undo

[moogthemoog]

Hi

I know the Undo stack is cleared when running a macro.

I'm trying to maintain in one column the current date of when a cell in another column is changed.

The code in the specific Sheet is:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("AH4:AH5000")) Is Nothing) Then Target.Offset(0, -32).Value2 = Now

 End Sub

This is looking at column AH, and if any cell in that column changes, it puts the current date in column B (32 columns to the left).

The Undo stack is cleared when the cell is changed; I don't want to undo the entry that's been done in column B, but if I need to undo a manual change in column AH, I can't.

Is there another way of tracking a change, or a way of restoring the last value of a cell into the Undo Stack, so that CTRL-Z will work!

Thanks
Jon