Timer for Workbook

[Akashwani]

Hi,

I have spent the last 3 hours searching/researching this and I have drawn a blank, so I'm back here for HELP.

I would like a "timer" to calculate, from the Workbook being opened to it being closed.

I would like a message to appear saying...
"You have been active for ??? minutes"

Is this a possibility?

Ak

 

[Akashwani]

Yeah, problem solved,
and I solved it

I deleted End Sub and Sub TrialQuestions()

Thanks anyway

Ak



Dim t As Date
Private Sub Workbook_Open()
Dim s As String
MsgBox ("WELCOME")
s = InputBox("Enter your first name")
t = Now
Const strRightAnswer As String = "Ottawa"
Dim strAnswer As String
While Not (strRightAnswer = strAnswer)
strAnswer = InputBox("What is the Capital of Canada?")
If Not (strRightAnswer = strAnswer) Then MsgBox "Incorrect answer please try again."
Wend
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "You have been active for " & Format(Now - t, "nn") & " minutes and " & Format(Now - t, "ss") & " seconds."
Dim res
res = MsgBox(" Do you like chocolate?", vbYesNo)
If res <> vbYes Then Cancel = True
End Sub

 

[canadapip]

Hi Ak,

You've got the question set up in its own sub routine, but are not calling it in any way. You have two choices:

1)on a new line after

t=now

, add: TrialQuestions

2) delete the line

Sub TrialQuestions()

and the

End Sub

right before it.
Either one should work.