You sure you're just not seeing the first part of the string.

For Each c In ActiveCell.CurrentRegion.Cells

'set it to "" to start
sOut = ""

'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"

'do something with sOut
c.value = sout '????

Next C 'cause I like it!

Buffyslay wrote:

hi all

i want to loop through the currentRegion and do a different thing for
each col - this just gives me the same value in each one - i can see it
does that but cannot see how to move along !! arrgggh!!

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"

Next

--

Dave Peterson