Thanks Gary_S,
Jim has an add-in called "XL Extras" that adds an extra
item to the Insert menu called "Table of Contents". This executes the hidden
code to get the list of all worksheets in a workbook. Then creates, lists
them on a sheet called "Table of Contents. The 5th option down on the insert
menu is "Table of Contents" but it doesn't show up on the customize menu. So
I could only think of sendkeys to get me there. I didn't know the syntax for
the arrow keys.

"Gary''s Student" wrote:

I am a bit confused. The following:

Sub mike_k()
Application.SendKeys "%{f}"
Application.SendKeys "{RIGHT}"
Application.SendKeys "{RIGHT}"
Application.SendKeys "{RIGHT}"
Application.SendKeys "{DOWN}"
Application.SendKeys "{DOWN}"
Application.SendKeys "{DOWN}"
DoEvents
End Sub


will get the user ready to insert a new worksheet, but you need to click the
mouse. You can't click with SendKeys. Why not just code a routine that will
1. perform the Sheets.Add
2. call the indexer?

How are you activating Cone's routine now??
--
Gary''s Student
gsnu200712