Visual Basic - Celdas Excel

Hola chic@s:

Necesito que el texto de una celda de Excel se alinee a la derecha (o a la izquierda, da igual) y quede centrado en vertical. El caso es que con el código que me sale al grabar un macro no me funciona. El macro pone:

Range ("B39").Select

With Selection

.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter

End With

Tengo que cambiar varias cosas porque estoy con Visual Basic 2005 Express Edition, pero en otros casos (para variar tamaño de imágenes, etc.) encontré el resultado probando, pero en este caso no doy con ello.

La línea que yo escribo es :

ApExcel.Sheets("Hoja1").Cells((39 + (i - 1)), 3).HorizontalAlignment = Left
ApExcel.Sheets("Hoja1").Cells((39 + (i - 1)), 3).VerticalAlignment = Center

pero al depurarlo no pasa por el "HorizontalAlignment".

Perdonad que ponga esto aquí y no en VB.Net, pero he estado mirando allí y no hay respuestas que me sirvan y sé que por aquí también hay gente que utiliza VB.NET.

No os doy más la lata, si me podéis ayudar...

Un saludo y gracias anticipadas.

CHECA ESTO LA FUNCION pinta los bordes derecho e izkierdo de la celda ademas de colocarlo centrado
para llamar a la funcion

BOR (Hoja1.Cells(i, 9))

Sub BOR(ApExcel As Object)
ApExcel.Select

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

With Selection

.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter

End With

End Sub