Naomi,
you are just too quick. I fixed it with a macro but then saw your code so I redid it your way. I just keep missing the small stuff. My new glasses are supposed to be in Friday.

Thanks for the help and the sharp eye,
John.

Local mName, oCol,  oControl
FOR EACH oCol IN this.Columns
  for each oControl in oCol.controls
    if Upper(oControl.class) == 'TEXTBOX'
      mName = oControl.name  && Keep same name
      oCol.RemoveObject(mName)
      oCol.NewObject(mName,[cTextBox],[vjctrl.vcx])
      oCol.CurrentControl = mName
      store .t. to ('oCol.' + mName + '.visible')
    EndIf
  endfor
ENDFOR