Save Date & Time

M

mickey

Does anyone know of a way to insert the last save date and time in a cell in
an Excel worksheet?
 
N

Nick Hodge

Mickey

You could use a workbook_Beforesave() event, like so

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("Sheet1").Range("A1").Value = Now()
End Sub

To get into workbook, right-click the workbook excel icon second down top
left and select view code, paste here

Change worksheet and cell ref to suit

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
[email protected]
www.nickhodge.co.uk
 
M

mickey

Thanks Nick

Nick Hodge said:
Mickey

You could use a workbook_Beforesave() event, like so

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("Sheet1").Range("A1").Value = Now()
End Sub

To get into workbook, right-click the workbook excel icon second down top
left and select view code, paste here

Change worksheet and cell ref to suit

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
[email protected]
www.nickhodge.co.uk
Click to expand...
 
Top