See if this does what you want.

Sub Fordex()
For Each c In Range("A:A")
If StrConv(Left(c.Value, 1), vbUpperCase) = "P" Then
c.Value = Right(c.Value, Len(c.Value) - 1)
End If
Next
End Sub


"dex" wrote:

Yes i would rather use it in the macro. What is the syntax?