Sub AddNames()
Dim rng as Range, cell as Range
set rng = Range(Range("A2"),Range("A2").end(xldown))
for each cell in rng
cell.offset(0,1).Value = cell.Value & "-a.jpg"
cell.offset(0,2).Vaue = cell.Value & "-b.jpg"
cell.offset(0,3).Value = cell.Value & "-c.jpg"
Next
End Sub

--
Regards,
Tom Ogilvy


"Swn-Y-Mor" wrote
in message ...

I have a spreadsheet where I have an Item Ref number and 3 associated
images.

eg.

Item Ref Image1 Image2 Image3
2800 2800-a.jpg 2800-b.jpg
2800-c.jpg

I now need to add 500 more images, and was wondering if someone knew of
a way for me to add the Ref No. and Image1 Image2 Image3 are filled in
by taking the Ref No and adding -a.jpg , -b.jpg , -c.jpg to it. Hope I
explained what I am trying to achieve.


Item Ref Image1 Image2 Image3
2800 2800-a.jpg 2800-b.jpg
2800-c.jpg
2801 2801-a.jpg 2801-b.jpg
2801-c.jpg
2802 2802-a.jpg 2802-b.jpg 2802-c.jpg


--
Swn-Y-Mor
------------------------------------------------------------------------
Swn-Y-Mor's Profile:
http://www.excelforum.com/member.php...o&userid=18359
View this thread: http://www.excelforum.com/showthread...hreadid=517774