I'm trying to parse an ActiveCell into several columns. Any ideas?
ActiveCell.Columns("A:A").EntireColumn.Select
'
Selection.TextToColumns Destination:=ActiveCell, DataType:= _
xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=True, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=True, OtherChar:=" "
<h2>1ST LINE:</h2>
" 01-APR-02 05366358A 1004 URAR/Sing 335.00 0824370 V3004587 Clay Routh 4802 twin valley drive Austin TX 78731"
This message was edited by nolc on 2002-05-06 08:56
ActiveCell.Columns("A:A").EntireColumn.Select
'
Selection.TextToColumns Destination:=ActiveCell, DataType:= _
xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=True, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=True, OtherChar:=" "
<h2>1ST LINE:</h2>
" 01-APR-02 05366358A 1004 URAR/Sing 335.00 0824370 V3004587 Clay Routh 4802 twin valley drive Austin TX 78731"
This message was edited by nolc on 2002-05-06 08:56