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

Arum,

Already replied. Stick to the one thread or you will confuse me.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"aiyer " wrote in message
...
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 subscript
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/