Random messages pop up
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." wrote in message
...
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
|