Public Function MyReplace(rng As Range

Public Function MyReplace(rng As Range, strFrom As String, strTo As String) As String
 'Merge = ThisWorkbook.Name
 Dim Str As String
 Str = ""
 Dim n As Range
 For Each n In rng
    If n.Value <> "" Then
       Str = Replace(n.Value, strFrom, strTo)
    End If
 Next n'If Right(Str, 1) = splitter Then
 '  Str = Left(Str, Len(Str) - 1)
 'End IfMyReplace = Str
End Function