Random messages pop up

[David A.]

I need to have random messages pop up every time someone open a Sheet.
IE
"Have a great Day"
"Read your call quality guide"
"Remember to apritaite your customers"

Things like that.
I just want them to be different everytime.....rotate through a list of text.
Tahnx

 

[Vasant Nanavati]

You will need a macro.

Private Sub Workbook_Open()
Dim i As Integer
Randomize
i = Int(3 * Rnd) + 1 'If the number of messages is greater change the 3
to the correct number
If i = 1 Then MsgBox "Have a great day!"
If i = 2 Then MsgBox "Read your call quality guide!"
If i = 3 Then MsgBox "Remember to appreciate your customers!"
End Sub

The macro needs to go into the workbook's code module.
________________________________________________________________________

 

[David A.]

Thank you sooooo much. I've been trying to get this but......Thanx.