scottwilsonx,

This may not be what you want but it does what I want.




MsgBox "Phone Nr.For Sto " & vbCrLf & .ListBox2.Text _
& vbCrLf & "Address: " & ActiveCell.Offset(0, 2).Tex
_
& vbCrLf & "City : " & ActiveCell.Offset(0, 3).Text _
& ", " & ActiveCell.Offset(0, 4).Text _
& vbCrLf & "Is: " & ActiveCell.Offset(0, 5).Text _
& vbCrLf & "Hours : " & " " & ActiveCell.Offset(0
7).Text _
& " " & ActiveCell.Offset(0, 8).Text & vbCrLf & _
"Sat Hours : " & ActiveCell.Offset(0, 9).Text & " " _
& ActiveCell.Offset(0, 10).Text & vbCrLf _
& "Sun Hours : " & ActiveCell.Offset(0, 11).Text _
& " " & ActiveCell.Offset(0, 12).Text & vbCrLf _
& "DSM : " & ActiveCell.Offset(0, 13).Text
vbCrLf _
& "RSM : " & ActiveCell.Offset(0, 14).Text

Charle

--
Charle
-----------------------------------------------------------------------
Charles's Profile: http://www.excelforum.com/member.php...nfo&userid=601
View this thread: http://www.excelforum.com/showthread.php?threadid=27835