Assuming "NYCITY" is the only text in that cell:

Sub NYC ()
Dim c As Range, rng As Range
Dim Lrow as Long

Lrow = Cells(Rows.Count, 3).End(xlUp).Row
Set rng = Range("C1:C"& Lrow)

For Each c in rng
If c.Value = "NYCITY" Then c.Value = "NYC"
Next
End Sub

Mike F

"Dan R." wrote in message
ups.com...
I know this is easy but I can't seem to figure it out, I need a macro
that will replace "NYCITY" with "NYC" if it is pasted in column 3.

Thanks,
-- Dan