dim cell as Range
for each cell in rows(2).Cells
if not isempty(cell.value) then
Cell.Value = "(alias=" & cell.Value & ")"
else
exit for
endif
Next

--
Regards,
Tom Ogilvy

bt707 wrote in message
...
I have a row of cells that have last names in them, is there a way I can
insert some data into all of the cells, this data will be the same for
all names.

Ex

Before jones1
After (alias=jones1)

then if possible export all of the names to a word or text file all in
one line.

Ex (alias=jones1)(alias=smith2)(alias=johnson3)


Thanks for any help!!!!



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/