If xl97 as the first line of code (for the combobox which is having trouble)
put in

ActiveCell.Activate

--
Regards,
Tom Ogilvy

Don Lloyd wrote in message
...
Hi,

I have 3 controls on a sheet. 2 are buttons from the Forms Control Box and
the other one is a ComboBox from the Control Toolbox.

Each control changes the value of a cell (common to all) and then calls a
Sub routine that formats ranges of cells.

All is well with the Buttons but when the routine is run from the ComboBox
control it fails on the following line.

Rnge.Borders.ColorIndex = xlColorIndexNone

with the message . . unable to set . . .etc.

Events are set to False in all cases.

Any ideas ?

regards,

Don
--