Reminder or Buzz in excel sheets

[Parvez]

Can i put a reminder or Buzz to my excel worksheets to pop up later on so
that i am reminded for my work done to carry forward my work in excel sheets?

 

[Robert McCurdy]

He is something I use to do exactly that - I'm so absent minded!
Assign 'TellMe' to a custom button so it is available whenever


Sub TellMe()
Dim x As Double
Static G As Integer
Static Str As String
G = G + 1
If G = 1 Then
Str = Application.InputBox("What is the Event?", Type:=2)
x = Application.InputBox("How much waiting time, " _
& "in minutes please?", Type:=1)
Application.OnTime Now + x / 1440, "TellMe"
Else
GoneIn2Sec
MsgBox Str
G = 0
End If
End Sub

'and this one is called by the other..

Sub GoneIn2Sec()
Dim t As Double, Rng As Range
Dim tt As Double
Set Rng = ActiveCell
Application.EnableCancelKey = xlErrorHandler
On Error GoTo end1
If [b1] = "" Or Not IsNumeric([b1]) Then
tt = Timer + 30
Else
tt = Timer + [b1].Value
End If
With Rng
Do While Timer < tt
If .Interior.ColorIndex <> 3 Then
.Interior.ColorIndex = 3
.Font.Bold = True
Beep
Else
.Interior.ColorIndex = Int(Rnd() * 56 + 1)
.Font.Bold = False
End If
'the 0.16 lets one blink faster than a second
t = Timer + 0.16
Do While Timer < t
DoEvents
Loop
Loop
End With
end1:
End Sub

B1 will flash for 30 seconds and a Msgbox will appear, adjust to suit.


Regards
Robert McCurdy