Highlight a selected toolbar in a menu!
 

Hello!

I would like to highlight (possibly with a coloured 'tick mark')
selected toolbar rom a menu.
I.e. any toolbar selected by the user from a menu should be highlighte
so that the user can see which ones were selected in the end. I wrot
the following macro for the same but can't figure out what'z wrong.

==============================================

Sub Macro1()

With Application.CommandBars.ActionControl
If .State = msoButtonUp Then
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
.State = msoButtonDown
Else
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetVisible
.State = msoButtonUp
End If
End With

End Sub
==============================================

I would appreciate your help guys.

Thanks a bunch, best regds.

Arun

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

Highlight a selected toolbar in a menu!
 

you do follow the approach in these articles:

http://support.microsoft.com/?id=161926
XL97: How to Place a Checkmark Next to a Menu Item

http://support.microsoft.com/?id=213735
XL2000: How to Place a Check Mark Next to a Custom Menu Item

so I guess the question is what is the problem. Saying you can't figure out
what is wrong doesn't tell us what results you are getting that don't match
your expectations.

--
Regards,
Tom Ogilvy

"aiyer " wrote in message
...
Hello!

I would like to highlight (possibly with a coloured 'tick mark') a
selected toolbar rom a menu.
I.e. any toolbar selected by the user from a menu should be highlighted
so that the user can see which ones were selected in the end. I wrote
the following macro for the same but can't figure out what'z wrong.

==============================================

Sub Macro1()

With Application.CommandBars.ActionControl
If .State = msoButtonUp Then
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
State = msoButtonDown
Else
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetVisible
State = msoButtonUp
End If
End With

End Sub
==============================================

I would appreciate your help guys.

Thanks a bunch, best regds.

Arun.


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