text column - via macro

[Rohit]

Hi
Can someone write a macro for me to text column with the folloing

eg in Column A, I have 4602101 - AAAAABBBBBBBCCCCCC
so, I want macro to separate as put 4602101 in column A and the text in
column B

 

[Gary''s Student]

You can do this without macros, but try this:

Sub SplitUm()
Dim r1 As Range, r2 As Range
Set r1 = Intersect(ActiveSheet.UsedRange, Range("A:A"))
cutt = " - "
For Each r2 In r1
v = r2.Value
r2.Value = Split(v, cutt)(0)
r2.Offset(0, 1).Value = Split(v, cutt)(1)
Next
End Sub