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 If

MyReplace = Str

End Function