Get formatted values from a multi-cell range

Question

Dim myText As String
myText= Range(\"a3\").Text

Returns the formatted value in cell A3, but

myText= Range(\"a3:c7\").Text
<         


        

Answer 1

This is a modified version of one of the post here and it worked for me.

    Function Range2Text(ByVal my_range As Range) As String
        Dim i As Integer, j As Integer
        Dim v1 As Variant
        Dim Txt As String

        v1 = my_range
        For i = 1 To UBound(v1)
            For j = 1 To UBound(v1, 2)
                Txt = Txt & v1(i, j)
            Next j
            Txt = Txt & vbCrLf
        Next i

        Range2Text = Txt
    End Function