Hi Bob:

Thanks, I am not quite clear about splitting the same into 2 lines
However, I tried the following but am still getting the same subscrip
errors.

With Application.CommandBars.ActionControl

If .State = msoButtonUp Then
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheet
Hidden.State = msoButtonDown
Else
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheet
Visible.State = msoButtonUp
End If
End With


I would appreciate ur help.
Thanks.

Arun.
Vtec corp

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