¿Cómo puedo convertir un rango a una cadena (VBA)?

¿Cuál es la mejor manera de convertir un rango de celdas en una cadena? Tengo una función que solo toma una cadena como entrada, por lo que necesito convertir el rango en una cadena, al tiempo que conserva la mayor cantidad de formato posible (es decir, debe verse como una tabla o lista, no solo una cadena de caracteres) . Intenté trabajar con CStr (), así como convertir de un rango a una matriz y luego a una cadena, pero solo recibo errores.

Editar: intento de código

Dim email_answer As Integer
email_answer = MsgBox("Do you want to be emailled a copy of this schedule?", vbYesNo)
If email_answer = vbYes Then

    Dim wb As Workbook
    Dim to_send As Range
    to_send = Range("D3", "D10")

    If Val(Application.Version) < 14 Then Exit Sub

    Set wb = ActiveWorkbook
    With wb
        MailFromMacWithMail body content:=CStr(to_send), _
                    mailsubject:="Schedule", _
                    toaddress:="email address", _
                    ccaddress:="", _
                    bccaddress:="", _
                    attachment:=.FullName, _
                    displaymail:=False
    End With
    Set wb = Nothing
End If

Respuestas a la pregunta(6)

Su respuesta a la pregunta