GS used his keyboard to write :
If Not sName = "" Then Workbooks(sName).Activate

change to...

If Not sName = "" Then Application.Windows(sName).Activate

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc