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