Hi all.

I have a workbook and a formula to show a "tip of the day" when the user opens it.

=INDEX('Sheet 2'!A1:A70,RANDBETWEEN(1,COUNTA('Sheet 2'!A1:A70)))
The only problem is, it changes every time a user does something; add a number, delete a cell etc etc etc.

I would like to apply this to a message box that displays upon opening. I currently have one that says good morning or good afternoon, and just want to change this to this new tip of the day idea.

Here's what I have so far:

Private Sub Workbook_Open()
    If Time < 0.5 Then MsgBox "Good morning " & Application.UserName & ""
    If Time >= 0.5 Then MsgBox "Good afternoon " & Application.UserName & ""
End Sub
Any ideas guys?

Tony