Snasui Excel Forum

Code: Select all

Function MergeText(ParamArray VarArgs() As Variant) As Variant
    Dim VarArg As Variant
        For Each VarArg In VarArgs
                If TypeName(VarArg) = "Range" Then
                    For Each i In VarArg
                       If Len(i) <> 0 Then MergeText = MergeText & i & ","
                    Next
                 Else
                   If Len(VarArg) <> 0 Then MergeText = MergeText & VarArg & ","
                End If
        Next
    If Not MergeText = blank Then MergeText = Left(MergeText, Len(MergeText) - 1)
End Function