MsgBox asociado a referencia celdas

Si entendí bien quieres algo así:

Sub men()
'Por.DAM
    rango = "A1:B10"
    For Each c In Range(rango)
        m = m & c & " "
    Next
    MsgBox m
End Sub

Prueba y me comentas

Saludos. Dante Amor

Si es lo que necesitas no olvides valorar la respuesta.

Hola Dante Amor.

Gracias por tu respuesta. Es más o menos lo que quería. Lo que si me gustaría es que no moestrara el resultado en línea hacia al lado, si no que tal cual hacia abajo..

Esto lo muestras así.

Ideal seria que lo dejara tal cual es capturada la información.

Jose     $ 10.000 
Jaime     $ 30.000 
Luis     $ 699.990 
Ana     $ 399.393 
Mario     $ 56.000 
Mariela     $ 399.002 
Jessica     $ 10.093.493 
Brian     $ 9.939.330 
Jaime     $ 30.000 
Luis $ 699.990 

Espero se pueda.

Listo.

Te envío otra macro

Sub men()
'Por.DAM
    rango = "A1:B10"
    For i = 1 To 10
        m = m & Cells(i, "A") & " " & Format(Cells(i, "B"), "$ #,##0.00") & vbCr
    Next
    MsgBox m
End Sub

Saludos.DAM

No olvides valorar la respuesta

¡Gracias!

 Si- Es lo que necesitaba.

Excelente :) 

Hola Dante Amor

Como puedo dejar distancia entre los datos de la columna A y B cuando los muestra en Msgbox

Supongamos que el nombre más largo de la Columna A sea 15 caracteres desde ahí separe 3 espacios( osea dejar un margen de distancia) para mostrar los datos de la columna B.

Osea la idea es que el Msgbox sean una fotografía de los datos de excel. (los valores hacia la izquierda). Actualmente los datos se muestran muy amontonados.

Ojala se entienda

Gracias por tu ayuda