Split 1column into 2 columns VBA

[svmt]

Dear All,

I've been looking it up in here then trying it with the code I found, but I cant manage to get my vba to work correctly. Could you please help me to find a code to split data from 1 column into 2 please?
I have

Column H
1/12/2012-1/12/2012
1/12/2012-2/4/2012
1/9/2012-1/13/2012
1/11/2012-1/31/2012
1/11/2012-1/31/2012
1/11/2012-1/31/2012
1/28/2012-2/8/2012
2/7/2012-2/22/2012

And I would like to have

Column G Column I
1/12/2012 1/12/2012
1/12/2012 2/4/2012
1/9/2012 1/13/2012
1/11/2012 1/31/2012
1/11/2012 1/31/2012
1/11/2012 1/31/2012
1/28/2012 2/8/2012
2/7/2012 2/22/2012


I used
= Left(H5, FIND("-", H5) - 1)
= Right(H5, FIND("-", H5) - 1)

But sometimes for the "column I", I get " -1/12/2012"...

If you have an idea of how to write a vba code that can be applied in the Range "H5:H5000" , please don't hesitate! Thank you everyone

[Norie]

Use Data>Text to columns... with - as the delimiter.

[vatsalya]

Sub text2columns()


Dim myrng As Range
Dim rng As Range

Set myrng = Range("H5:H5000")

For Each rng In myrng

On Error Resume Next
rng.Offset(0,-1) = VBA.Left(rng, WorksheetFunction.Search("-", rng) - 1)
rng.Offset(0, 1) = VBA.Right(rng, VBA.Len(rng) - WorksheetFunction.Search("-", rng))

Next rng


End Sub

[svmt]

Thank you so much!