Function RangeToString(ByVal myRange As Range) As String

    RangeToString = ""

    If Not myRange Is Nothing Then

        Dim myCell As Range

        For Each myCell In myRange

            If Not myCell.Value = "" Then

                RangeToString = RangeToString & "," & myCell.Value

            End If

        Next myCell

        'Remove extra comma

        RangeToString = Right(RangeToString, Len(RangeToString) - 1)

    End If

End Function