Visual Basic - Duda sobre codigo separcion cadena caracteres en VB

Buenas, no termino de hacer funcionar este codigo para separacion de cadenas de caracteres. Os agradeceria algun comentario.
----------
Sub Cadenas()

x = 1
y = 1

While Cells(x, 1) <> ""

Surname = ""
Name = ""

For Each Item In Split(Cells(x, y))

If Asc(Mid(Item, 1, 1)) = Asc(UCase(Mid(Item, 1, 1))) And Asc(Mid(Item, 2, 1)) = Asc(UCase(Mid(Item, 2, 1))) Then
Surname = Surname & " " & Item
Else
Name = Name & " " & Item
End If

Next Item

Cells(x, 2) = Trim(Surname)
Cells(x, 3) = Trim(Name)

x = x + 1

Wend

End Sub
----------
Gracias por la ayuda,

A mi me gusta el código bien escrito para poder leerlo:


El código esta bien y hace exactamente lo que le has dicho que haga.

Saludos.
\\//_

Antoni muchas gracias por tu respuesta !

Entonces no se porque cuando lo intento ejecturar me dice "invalid procedure call or argument"

Agradeceria algun comentario,

Un saludo.

Sin ver el libro no se que es lo que hace mal por que no puedo probar el código.
Tampoco se lo que quieres que haga el código.
Por que una cosa es lo que escribimos que haga y otro lo que queremos que haga.

Saludos.
\\//_

Tienes toda la razon Antoni, disculpa. La idea es separar cadenas de caracteres en que estan en una columna, y unos estan en mayusculas y otros en minuscula. Al darle al boton tiene que llamar al funcion y ponerlo todo separado como ves en el codigo.

Un saludo.

Puedes poner unos tres ejemplos de la columna que se ocupa separar, y otra de como quieres que quede en la columna 2 y 3.

A ver si con esto te es mas facil Antoni. Gracias.

No puedo probar el código con una imagen.

Saludos.
\\//_