TextToColumns [VBA]

[smallxyz]

Several cells need to be parsed into columns upon selection.
But the following code is not functioning properly.
What is going on?

e.g. of cell content: (Each line represents one cell)

(s[, sep[, maxsplit]])
(s[, sep[, maxsplit]])
(words[, sep])
(words[, sep])

    For Each Cell In Selection
        Cell = Replace(Cell, " ", "")
        Cell = Replace(Cell, "(", "( ")
        Cell = Replace(Cell, ")", " )")
        Cell = Replace(Cell, "[", "")
        Cell = Replace(Cell, "]", "")
    
[COLOR=#ff0000]        Cell.TextToColumns DataType:=xlDelimited, _
                                Comma:=True[/COLOR]
    Next

I got an error "424" at red line part.

Thanks!

 

[JoeMo]

See if this works for you

Dim C As Range
For Each C In Selection
        C = Replace(C, " ", "")
        C = Replace(C, "(", "( ")
        C = Replace(C, ")", " )")
        C = Replace(C, "[", "")
        C = Replace(C, "]", "")
    
        C.TextToColumns DataType:=xlDelimited, _
                                Comma:=True
    Next

 

[smallxyz]

JoeMo,
Thank you!