Need a simple macro

The following should do it for you. Paste into the macro sheet for the sheet containing your data.

Sub splittext()
    Dim I As Long
    I = 1
    Do While Not IsEmpty(Cells(I, 1).Value)
        Cells(I, 1).Resize(1, 2).Value = Split(Cells(I, 1).Value, "- ")
        Cells(I, 1).Value = Cells(I, 1).Value & "-"
        I = I + 1
    Loop
End Sub
 

Andrew
Logic Software and Systems Ltd.
www.logicarchitect.co.uk/cs

You could do this by formula if you wish and if you are happy to have the results in different columns.

e.g. In column C, =LEFT(A1,FIND("-",A1)) and, in column D, =RIGHT(A1,LEN(A1)-FIND("-",A1))

why not use the excel engine and avoid unnecessary vba?

if your original text is in A5 for example put into B5 for the first part

=TRIM(LEFT(A5,FIND("-",A5,1)-1) )

which finds the position of the hyphen and trims the characters to the left to remove unwanted spaces

and into C5 for the second

=TRIM(RIGHT(A5,LEN(A5)-(FIND("-",A5,1)+1)))

which finds the position of the hyphen and trims the characters to the right after calculating the length of the string

Copy the furmulae down.

John

If you don't need the hyphen, use Excel's "Text to Columns" feature. In the wizard, opt for delimited and enter a hyphen in the "other" box.

It's in the section in 2010 - sorry can't remember where for earlier versions, but it is there.