Message Box with a list
Let's say the namelist is on Sheet3 column A:
Sub popup()
Dim s As String
ch = Chr(10)
s = "The following people have not completed their reports:"
Set sh = Sheets("Sheet3")
n = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
s = s & ch & sh.Cells(i, "A").Value
Next
MsgBox (s)
End Sub
--
Gary''s Student - gsnu200794
"John" wrote:
Is it possible to have a Message Box pop up and show a list of variables. I
want a message to pop-up and show a list of people that have not updated
their reports. I have a list of names that generates from a seperate section
of code. I want the message box to pull from this list and display the names.
Also, the data is on a seperate sheet from where the MsgBox will appear.
Example:
The following people have not completed their reports:
Bill
BoB
Tony
Sue
Any ideas? (Using Excel 2003)
Thanks in advance!
|