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