Adding JR to excel cells

[Yoxy99]

Hi I was wondering if there was a quick way I could add "JR" at the end of cells I have selected in Excel. Currently the cells contain names without JR for example: John Smith but I want it to add JR at the end so it would be : John Smith JR?

 

[SkipVought]

You don't need VBA.
[tt]
assuming the data is in column A, beginning in row 2...
1. B2: =A2&" JR"
2. Copy B2 down thru the rows of data
3. Copy the column B range containing data
4. select A2
5. Edit > Paste Special - VALUES
[/tt]
THAT's the quickest way!

But here's a VBA solution, for the "cells I have selected in Excel."

sub AppendJR()
   dim r as range
   for each r in selection
      with r
         .value = .value & " JR"
      end with
   next
end sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}