I am using the following UDF to split a long string into rows of predefined number of words in based on input incell "D3".
Public Function SplitOnNth(ByVal inputStr$, ByVal StartPos&, ByVal NumWords&) As String
Dim arr() As String, i As Long, newArr() As String
arr =...