You say "PRO". Do you mean Proper?
I'll assume you do. If you have just a few cells to do, look up the Proper
function in help.
If you have a bunch then this macro will do it for you. Paste this macro
into a regular module and run the macro. This macro will operate on the
active sheet. You have to select another sheet and run the macro again if
you have more than one sheet.
Sub ProperCase()
Dim i As Range
For Each i In Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
If Not i.HasFormula Then
i.Value = Application.Proper(i.Value)
End If
Next
End Sub

If you have a bunch of sheets in the file and you want to do them all in one
swoop, use this macro:
Sub ProperCaseManyShts()
Dim ws As Worksheet
Dim i As Range
For Each ws In ActiveWorkbook.Worksheets
For Each i In Range(Range("A1"),
Range("A1").SpecialCells(xlLastCell))
If Not i.HasFormula Then
i.Value = Application.Proper(i.Value)
End If
Next i
Next ws
End Sub

HTH Otto

"mjmoon" wrote in message
...