Try this macro (posted by another user some time ago). I've got mine
assigned to a custom button on my toolbar.
Sub TextToColumnsReset()
Dim DeleteCell As Boolean
If ActiveCell = "" Then
ActiveCell = 1
DeleteCell = True
End If
ActiveCell.TextToColumns DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False
If DeleteCell Then ActiveCell.ClearContents
End Sub
|