Wwwoooooooowwwwww! Many thanks for such quick and elegant answers to you
three!
(I'm asking myself if one day I would be able get closer to your level of
VBA mastery...)

I'll test your solutions in the next 24h, but I'm already sure that they are
more than fine...
Once again, thank you very much,
Mark


"Ken Johnson" wrote in message
oups.com...
Hi Mark,

The easiest solution to your first problem is to get rid of the first
line.
This way all you have to do is select the row 2 cell of a column you
want processed then run the macro.

The second change would be to convert...

Loop Until IsEmpty(ActiveCell.Offset(0, -1))

To...

Loop Until IsEmpty(Cells(Activecell.Row,1))

Try that out on a copy of you sheet.

I know it would be nice to have an inputbox to input the columns to
process, but for such a small number of columns would it be worth the
effort?

Ken Johnson