looping through current region

[buffyslay]

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

 

[buffyslay]

sorry - posted first one on google - didnt think about this one (sorry
for clogging up servers etc)

 

[Dave Peterson]

select case c.column
case is = 1: sOut = sOut & "<note>"
case is = 2: sOut = sOut & "<notnote>"
end select
....

select case c.column
case is = 1: sOut = sOut & "</note>"
case is = 2: sOut = sOut & "</notnote>"
end select