Hi Erik,

>I would have though that
>oColumn = THIS.Columns(THIS.ActiveColumn)
>would do it, but gives odd results if the columns have been rearranged.
>Anybody got a slick way to do this?

Try:

for each loColumn in this.columns
	if loColumn.ColumnORder = This.ActiveColumn
		exit
	endif
endfor
debugout loColumn.Name