Highlight the selection!

[aiyer]

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

 

[Bob Phillips]

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)