Thanks Bob.
But it'z not clear how to spli them into 2 lines.

I tried the following and it is still giving me 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


Would appreciate ur help.
Arun.

Vtec Corp

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