How to get a macro to run on all selected cells in a sheet?

How about:

Sub AppendP()
Dim c As Object
For Each c In Selection
    c.Value = c.Value & "-p"
Next c

End Sub