Hi Letty

You can try this macro for column A

Sub test()
Dim cell As Range
On Error Resume Next
For Each cell In Columns("A").SpecialCells(xlCellTypeConstants, xlNumbers)
cell.Value = "P" & cell.Value
Next cell
End Sub




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Lettie" wrote in message ...
How do I add the letter "P" to each cell of numbers on a worksheet?