How do I add the letter "P" to each cell of numbers on a worksheet?
R Ron de Bruin Feb 2, 2007 #3 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
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