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

Hi,

I am just starting to learn macros and I wrote one that appends a "-p" to a cell. How can I get this to work on all selected cells?
can someone tell me how I can run the same macro on all selected cells in a column??

Sub MarkAsStandAlone()
'
' MarkAsStandAlone Macro
'
' Keyboard Shortcut: Ctrl+Q
'
   Dim cellvalue As String
   Dim R As String
   Dim C As String


    R = ActiveCell.Row
    C = ActiveCell.Column
    cellvalue = ActiveCell.Value
    ActiveCell = cellvalue & "-i"

End Sub

Cheers,

Thanks

How about:

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

End Sub

Works like a charm

Hi Kyle,

I just noticed. I i make a selection in a filtered column then it applies the -p to all the values that are not in the filter as well.. how can we go about doing this?