Hi
You are missing a second "End if" at the end. The editor often gives
me a message about With...end With, when not closing an If is the real
problem.
You also have some .State and some State lines (without the dot) -
could that be a problem??

regards
Paul

majikman wrote in message ...
Private Sub viewDS()
With Application.CommandBars.ActionControl
If ActiveWorkbook.Charts("DS SALES$").Visible = xlSheetVisible
Then
State = msoButtonUp
'If .State = msoButtonUp Then
ActiveWorkbook.Charts("DS SALES$").Visible =
xlSheetVeryHidden
State = msoButtonUp
ActiveWorkbook.Charts("DS MARGIN$").Visible =
xlSheetVeryHidden
State = msoButtonUp
ActiveWorkbook.Charts("DS Cumm Sales $").Visible =
xlSheetVeryHidden
State = msoButtonUp
ActiveWorkbook.Charts("DS Cumm Marg $").Visible =
xlSheetVeryHidden
State = msoButtonUp
Else
ActiveWorkbook.Charts("DS SALES$").Visible =
xlSheetVisible
* .State = msoButtonDown
ActiveWorkbook.Charts("DS MARGIN$").Visible =
xlSheetVisible
State = msoButtonDown
ActiveWorkbook.Charts("DS Cumm Sales $").Visible =
xlSheetVisible
State = msoButtonDown
ActiveWorkbook.Charts("DS Cumm Marg $").Visible =
xlSheetVisible
State = msoButtonDown
End If
End With
End Sub

This snipet of code crashes on the line I have marked with an asterik.
It gives me the error Object variable or With block variable not set.
I've declared the with at the very top though so I don't understand why
this is crashing. Can someone help me out?


---
Message posted from http://www.ExcelForum.com/