When you protect the sheet, don't protect objects.

also make sure the chart is actually named Chart 6

--
Regards,
Tom Ogilvy

"Peter M" wrote in message
...
I have a chart in a sheet that I wish to protect. Some of the cells, data
and control input, are obviously unprotected. As a consequence of the
data
and control input the chart needs to have ranges added or deleted. With
an
unprotected worksheet this works fine, but the line:

ActiveSheet.ChartObjects("Chart 6").Activate

fails when the worksheet is protected. I have looked at the properties of
the Activesheet and although there are a number of .Protection
variables
I unable to find a combination that allows the changes I require.

Any help gratefully accepted.

Peter