VBA code for "text to column" option

[Shaan2021]

I am getting a run-time error 1004 with the following VBA code. It says Microsoft excel can only convert one column at a time. The range can be many rows tall but no more than one column wide.

However, I had recorded the macro for the Data-->text to columns option. I have selected just one column as seen in the code.

Columns("E:E").Select
    Selection.TextToColumns Destination:=Range("BH1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=True, FieldInfo:= _
        Array(1, 1), TrailingMinusNumbers:=True

What seems to be missing?

 

[VoG]

Does this work?

Columns("E").TextToColumns Destination:=Range("BH1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=True, FieldInfo:= _
        Array(1, 1), TrailingMinusNumbers:=True