Last Updated (Date)

[REDROVER]

I am trying to write a Macro or VBA and I have no idea what I am doing. I pulled this from a help site:

Dim LResult As Date

LResult = FileDateTime("C:\instructions.doc")

It is for a workbook. The workbook has a forecast summary page and the objective is to have a data automatically update when the workbook opens to show the Last Modified Date

I know how to open the Visual Basic Editor and go to the Properties for Sheet1, but that is it.

I need the updated date to appear on the spreadsheet. Thanks.

[skywriter]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[walruseggman]

Please put your code in CODE tags, per the forum rules.

But since this is your first post, and I'm also a Houstonian, I'll give you an answer.

This actually belongs in "ThisWorkbook" object in the VBA editor, not sheet1, as you suggested. Also, change "A1" to whatever cell you want the date in.

Please Login or Register  to view this content.

if you want a certain format on the date, you can use this, just change the format to whatever you want"

Please Login or Register  to view this content.

[REDROVER]

Inserted the code as I think you were suggesting - way over my head here. thank you for helping fellow Texas. I still don't understand what I did wrong in my initial request. Please advise.

[walruseggman]

TRy:

Please Login or Register  to view this content.

[REDROVER]

I get the error, Compile error: Invalid outside procedure

[walruseggman]

You have a lot of loose code all over the workbook. You need to get rid of any line of code not between Sub and End Sub lines.

[REDROVER]

I removed all the junk code and recreated (or copied pasted) the correct code. I am not getting an error now, but after saving and reopening it, it is not changing the Last Updated Date. I did make a change in it before I saved it.

[walruseggman]

Hmm, worked for me. Will play with it tomorrow.

[REDROVER]

Thank you very much.

[REDROVER]

I finally got this to work:

Sub ThisWorkbook_Open()
Dim LResult As Date
LResult = FileDateTime("C:\Documents\AccountManagerForecastPetrobras.xlsm")
Sheet1.Range("C3:D3").Value = LResult
End Sub