Text in to Columns without text to columns function and more than 3 commas separating it.

Hello, Dave

Here it is my sugesstion.

I supouse the data are located in column A and start from row 1.

Sub SplitWords()
    n = Application.WorksheetFunction.CountA(Range("A:A"))
    For r = 1 To n
        cadena = Cells(r, 1)
        l = Len(cadena)
        i = 1
        k = 2
        Do
            j = i
            Do
                letra = Mid(cadena, i, 1)
                i = i + 1
            Loop Until letra = "," Or i > l    
            word = Mid(cadena, j, i - j - 1)
            Cells(r, k) = word
            k = k + 1
        Loop Until i > l
    Next    
End Sub

I count the amount of rows whit data in column A. Then I take the the of first cell and letter by letter check if is a "," when I find the "," I have the position of the "," whit this I can extract a substring from text (function MID). This processes is repeted until last letter of the text.

Each word I extract from the text is written down in a consecutive cell in same row where the text is.

All this is inside a loop for each cell whit data. I attached the file whit the macro.

Hope this be usefull and can help you.

Regards
Basilio