Hi,

Just another method if you want to show inbuilt sheet activate dialog
box from your macro.


Sub MoreSheets()
Dim myctl As CommandBarButton

'find the control id 957 that shows inbuilt sheet activate dialogbox
Set myctl = CommandBars.FindControl(Type:=msoControlButton, ID:=957)

If myctl.Parent.Controls.Count = 16 Then
'if it is not added to toolbar then add it so we may use it
afterwards.
'if it is added then parent.control count < 16 but may be = 23 or ?

'checked it in xl-2000
'for i= 1 to myctl.Parent.Controls.Count
'debug.print myctl.Parent.controls(i).caption
'next


Set myctl = CommandBars("Standard").Controls.Add _
(Type:=msoControlButton, befo=1, ID:=957, Temporary:=True)
End If

myctl.Style = msoButtonCaption
myctl.Execute

End Sub


To popup sheet names.

Sub SheetNamePopup()
Application.CommandBars("workbook tabs").ShowPopup
End Sub



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!