Manejo de string en VB y excel en una macro

[sevillarg]

Gracias por leer mi post tengo este codigo al compilarlo me manda un error 9 subindice fuera de rango... en la celda A1 tengo el valor que quiero separar por las comas y quiero que me lo vaya imprimiendo en b1 b2 y b3 porque son 3 valores en este caso si hubiera mas entonces logico seria en mas b..... gracias por sus comentarios


Sub separanombres()

Dim nombres As String
Dim arreglonombre() As String
Dim i As Integer

'Active.Cells ("a1")


nombres = Worksheets("Hoja 1").Range("b1").Value

arreglonombre = Split(nombres, ",")


For i = LBound(arreglonombre) To UBound(arreglonombre)
Worksheets("Hoja 1").Range("b" & i).Value = arreglonombre(i)
Next i

End Sub