Text to colums
OOPs forgot to post the macro, sorry
Sub TextToColumns()
'
' TextToColumns
' Macro recorded 12/8/2006 by Dan
'
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
|