Try this

If LCase(sh.Name) = "summary" Then
str = Mid(mybook.Sheets(2).Name, 8, 9)

You can also use Mid for the other part instead of Right en Len

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message ups.com...
Thank you sooo-- much!! Your code works great!!! My quality of life is
dramatically improved.

In answer to your question, yes, the summary sheet is always the first
sheet in the workbook.

Thanks again! I really appreciate it.

:-)

Amy