did you check
andsub tst() msgbox dir("P:\HumanDev\QA\Staff\REPORT SPECIALIST\James Mutscheller\My Reports\Weekly\HD\Conversions.egp" End Sub
sub tst() getobject("P:\HumanDev\QA\Staff\REPORT SPECIALIST\James Mutscheller\My Reports\Weekly\HD\Conversions.egp").application.visible=true End Sub