msgbox displaying time passed since last save

**Jedody** · 03-07-2007, 08:58 PM

I have the following code:

Private Sub Workbook_Activate() 
    Dim user As String 
    If Worksheets("Setup").Range("D6").Value = "" Then 
        user$ = InputBox("Hello. Please enter your name to inialize the program", "Enter Name") 
        Worksheets("Setup").Range("D6").Value = user 
        MsgBox ("Welcome " & user & ". Press 'OK' to continue on to the Main Menu.") 
    Else 
        user$ = Worksheets("Setup").Range("D6").Value 
        MsgBox ("Welcome back " & user & ". Press 'OK' to continue on to the Main Menu.") 
    End If 
    Exit Sub

but i would like to expand the "welcome back" msgbox to also display "the last time you were was was (eg: 2 days/3 hrs/14 min) ago" - which i presume would be calculated from the last save.

I did ask this question in another forum but after a few hours, i was unsuccessful in getting a solution at this time.

Any assistance or redirection would be greatly appreciated.

**davesexcel** · 03-07-2007, 09:10 PM

A quick search brought me to this site

http://www.cpearson.com/excel/docprop.htm

I don't know if it will help but could be good information

**Jedody** · 03-07-2007, 10:01 PM

Thanks for your time davesexcel. I will take a look at it and maybe it will work for me.

Thanks again.

**Jedody** · 03-08-2007, 01:10 AM

That helped a bit davesexcel.

However i had to still figure lots out. Using ActiveWorkbook.BuiltinDocumentProperties.Item(12) - setting it into a worksheet and using date functions in excel, separating the info, comparing it to NOW() and then drawing them back to workbook_activate and concatenating everything in a msgbox.

Now it does EXACTLY what i wanted it to do!