I have the following code:
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.![]()
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
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.











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks