Ofimática - NOMBREPROPIO en macro

Agradecería si alguien me puede indicar cómo hago una macro que aplique la función NOMPREPROPIO (PROPER en inglés), a una columna con nombres escritos en minúsculas.

La macro en general no es problema, el problema es incluir la función, lo he hecho de varias formas y me da error. Por ej:

Cells(x,y).Value=PROPER(Cells(x,y).Value)

También coloqué:

Cells(x,y).Value="=PROPER(Cells(x,y).Value)"

Pero me da error.

Gracias de antemano

Amiga no entiendo bien tu planteamiento, pero vamos ahi va algo
Si deseas es transformar de minuscula a mayuscula el valor de determinada celda, esto te servira como ejemplo (claro se puede mejorar), agrega un boton en la hoja o un menu personalizado y le asignas este codigo o correlo como mejor te parezca, eso si trabaja con la celda activa, pruebalo escribiendo un texto en minuscula en una celda:

Sub mayus()
Dim nombrepropio As String
nombrepropio = ActiveCell.CurrentRegion
ActiveCell.Value = UCase(nombrepropio)
End Sub

si es otra cosa la que necesitas hazlo saber