hi
this works in 03
Sub messinbot()
Dim ans As Long
Dim r As String
Dim s As String
r = Range("J19").Value
s = Range("J9").Value
ans = MsgBox("Supervisor Name: " & r & " & Agent Name: " & s & _
". Is this correct?", vbYesNo + vbQuestion)
End Sub

regards
FSt1

"Peruanos72" wrote:

Hello all,

Anyone know how to take data from any give cell(s) and place in a message box?
I have 2 cells (J9 and J19) and i want this data in the message box.

Dim ans As Long
ans = MsgBox("Supervisor Name: (CELL VALUE J19) & Agent Name: (Cell VALUE
J9). Is this correct?", vbYesNo + vbQuestion)

Thx in advance!!!