Macro to Function

  • Thread starter Thread starter K
  • Start date Start date
K

K

The below macro works perfect. It extracts the name from a text. How
can I change below macro into "Public Function" Please can any friend
can help

Sub GetNames()
For Each Cell In Range("A1:A4")
Text = Replace(Split(Cell, "\")(UBound(Split(Cell, "\"))), ".", " ")
Parts = Split(Text, " ", 3)
Parts(2) = ""
Cell.Offset(0, 1).Value = Trim(Join(Parts))
Next
End Sub
 
It's a subroutine... exactly what do you mean by "change [it] to a public
**function**"?
 
I don't remember your original data, but I think this function will do what
you want...

Function GetName(S As String) As String
Dim Parts() As String
GetName = Replace(Split(S, "\")(UBound(Split(S, "\"))), ".", " ")
Parts = Split(GetName, " ", 3)
Parts(2) = ""
GetName = Trim(Join(Parts))
End Function
 
Back
Top