Function NAMEFIND(RefStr As Range, intIndex As Integer)
Dim NameCt As Integer
Dim Position() As Integer
Dim NameList()
Dim x As Integer
' Find the number of string separators
NameCt = Len(Trim(RefStr)) - Len(WorksheetFunction.Substitute(Trim(RefStr), ",", "")) + 1
If NameCt = 1 Then
NAMEFIND = RefStr
Exit Function
End If
ReDim Position(1 To NameCt - 1)
For x = 1 To NameCt - 1
If x = 1 Then
Position(x) = WorksheetFunction.Search(",", Trim(RefStr), 1)
Else
Position(x) = WorksheetFunction.Search(",", Trim(RefStr), Position(x - 1) + 1)
End If
Next x
ReDim NameList(1 To NameCt)
For x = 1 To NameCt
If x = 1 Then
NameList(x) = Left(RefStr, Position(x) - 1)
ElseIf x = NameCt Then
NameList(x) = Right(Trim(RefStr), Len(Trim(RefStr)) - Position(x - 1) - 1)
Else
NameList(x) = Mid(Trim(RefStr), Position(x - 1) + 1, Position(x) - Position(x - 1) - 1)
End If
Next x
NAMEFIND = Trim(NameList(intIndex))
End Function