Todo bien solo que al final del Shell le tienes que añadir en que foco se va a iniciar....
tipo:
Shell ("C:\WINDOWS\explorer ") & App.Path, vbNormalFocus
Shell ("C:\WINDOWS\explorer ") & App.Path, vbHide
Shell ("C:\WINDOWS\explorer ") & App.Path, vbMaximizedFocus
Lo que tu quieres es el 1 despues el 2 es para esconder la ventana y tercero es para hacerla grande..si quieres utilzar varios a la vez añade "+"
saludos