FOR EACH loColumn IN loActiveControl.Columns IF loActiveControl.ActiveColumn = loColumn.ColumnOrder *** This is the column you want . . . ENDIF ENDFOR