Can someone please explain to my why the following code opens the windows under the current focused window? I want them to open up focused.

Code:
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.FindFiles '(or FileRun)