Code works in VBA but not in worksheet?

[Aland2929]

When I run the code from VBA (pressing F5), it runs perfectly, BUT when I run it from a check box in worksheet, it displays a prompt "the chart is on a protected sheet"? After I click OK, it displays the chart. It works perfectly in other files? Thanks in advance.


[CODE]Sub ChangeChartTypeFuelHistory()
Application.ScreenUpdating = False

Worksheets("Fuel History Chart").Unprotect Password:="1345t"

Dim Cht As ChartObject
For Each Cht In Worksheets("Fuel History Chart").ChartObjects
If Cht.Chart.ChartType = xlLine Then
Cht.Chart.ChartType = xlColumnClustered
Else
With Cht
.Chart.ChartType = xlLine
.Chart.SetElement (msoElementDataLabelTop)
End With
End If
Next Cht

Worksheets("Fuel History Chart").Protect Password:="1345t"

Application.ScreenUpdating = True
End Sub[CODE]

[sintek]

Hi Aland2929

Please take a moment to read our forum rules...here
Your post does not comply with Rule # 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

Please Login or Register  to view this content.

So...Edit your post...Highlight the code and press the # button
We can only assist once this has been done…

[TMS]

I would try

Please Login or Register  to view this content.

[TMS]

@sintek: apologies, posts overlapped.

[Aland2929]

Thanks for your reply - unfortunately that does not work? Can't understand why this code works perfectly in other files?

[Andy Pope]

Once you have corrected your code tags, as requested, post example workbook

[sintek]

@sintek: apologies, posts overlapped.

No worries...Get into trouble by the big boss...I do not...

[Aland2929]

Hi Andy, I think my code is enclosed in tags?

[TMS]

It is, but the one at the end needs to be [/CODE]

[Aland2929]

Thanks to all for replies - check box cell reference was protected - problem now solved