sorry to post again - but problem is a bit different now

i need a different wrap tag for each column.....but cannot see how t
move it along?

For Each c In ActiveCell.CurrentRegion.Cells

'MsgBox c
sOut = sOut & "<note"
sOut = sOut & groupTitle & c & groupTitleEND
sOut = sOut & mapping & c & mappingEND
sOut = sOut & Description & c & DescriptionEND
sOut = sOut & budgetCode & c & budgetCodeEND
sOut = sOut & budgetCodePT & c & budgetCodePTEND
sOut = sOut & budgetCodeLU & c & budgetCodeLUEND
sOut = sOut & "</note"

Nex

--
buffysla
-----------------------------------------------------------------------
buffyslay's Profile: http://www.excelforum.com/member.php...nfo&userid=357
View this thread: http://www.excelforum.com/showthread.php?threadid=50725