Need to find macro
not sure what "toolbar" you may be refering to but following may be useful to
you:
Place code in Thisworkbook module - when you right click any worksheet in
your workbook, you will get a list of all worksheets - selecting from the
list will select the sheet. If you need to maintain the right click menu
rename the procedure something like:
sub SheetList
rest of code here
end sub
and place in standard module where you call it.
Hope helpful
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
On Error Resume Next
If ActiveWorkbook.Sheets.Count <= 16 Then
application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
application.CommandBars("Workbook Tabs").Controls("More
Sheets...").Execute
End If
On Error GoTo 0
Cancel = True
End Sub
--
jb
"Greg Snidow" wrote:
Greetings everyone. A while back a gentleman posted a macro to add a toolbar
to navigate through the sheets. I can't seem to find it now. Any clue where
it is, or who posted it?
Greg
|