John,

Try code like this to get rid of the macros:

loColumn = eval( "this." + alltrim( user.name ) )
with loColumn
   .ColumnOrder = user.ColumnOrder
   .Width = user.Width
endwith

>John,
>
>I solved the problem using the following syntax
>
>SELECT User
>
>LOCATE FOR User.FormName = ThisForm.Name
>DO WHILE FOUND( )
> lcColOrder = "This." + ALLTRIM(User.Name) + ".ColumnOrder"
> &lcColOrder = User.ColumnOrder
> lcColOrder = "This." + ALLTRIM(User.Name) + ".Width"
> &lcColOrder = User.Width
> CONTINUE
>ENDDO