Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

A cell that represents the last time the worksheet was changed 1

Status
Not open for further replies.

willz99ta

IS-IT--Management
Sep 15, 2004
132
US
Hi all,

Let me start by saying thanks for your help.

I am looking for a way to have a cell display the last time a worksheet was modified. If this is possible I am trying to put a cell like this into 3 different worksheet in the same file.

Thanks again,
Will
 
A starting point:
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 



Hi,

Use the Workbook_SheetChange event in the ThisWorkbook Object in the VB Editor.

alt+F11 toggles between the active worksheet and the VB Editor.

ctr+R to view the Project Explorer.

Double click the ThieWorkbook object and paste in this code...
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Sh.Name
        Case "Sheet1", "Sheet3"     'modify to include the list of your sheet names
            Sh.[A1] = Now           'mod for the cell you want for the date.
    End Select
End Sub


Skip,
[glasses]Don't let the Diatribe...
talk you to death![tongue]

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top