How to tell if sheet has been changed 1

[wotgoesup]

I want to put today's date in cell E3 if the user has changed anything.

I thought I could use Worksheet_Change, and I coded that as:
Range("e3").Select
ActiveCell.Value = Format(Now, "dd-mmm")

This works, but then the active cell is E3, and the user obviously wants to be in the cell he was changing, not moved to E3 each time he changes data.

Is there a property that I can check in worksheet_close() that will tell me if any changes were made?

 

[PHV]

What about this instead ?
Application.EnableEvents = False
[E3].Value = Format(Now, "dd-mmm")
Application.EnableEvents = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[xlhelp]

Can you not use Tools, Track Changes?

Member- AAAA Association Against Acronym Abusers

 

[PHV]

Furthermore there is no worksheet_close event.
You may consider something like this in the Before_Save event procedure of the workbook:
If Thisworkbook.Saved = False ' some changes were made in the workbook
Worksheets("yoursheet").Range("E3") = Format(Now, "dd-mmm")
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886