ox=createobject('Excel.Application') with ox for each cb in .Commandbars ? cb.Name endfor for each cbb in .Commandbars('Formatting').Controls ? cbb.Caption endfor for each cbb in .Commandbars('File').Controls ? cbb.Caption endfor .Workbooks.Add .Commandbars('Formatting').Controls('Bold').Enabled = .F. .Commandbars('File').Controls('Send to').Enabled = .F. .Visible = .t. endwithAll controls also has id that you can use to refer.