To specify a starting path, add this line right before the "Application.GetOpenFilename" command at the top...
[vba] ChDir "C:\PathGoesHere\"[/vba]
If you don't want the file extension to appear, add a line of code right after the "sName" line of code. Here are the two lines of code, the second one is new, so don't double the first one, it's only to show you where it goes...
[vba] sName = VBA.Right(vName, VBA.Len(vName) - VBA.InStrRev(vName, Application.PathSeparator))
sName = VBA.Left(sName, VBA.InStrRev(sName, ".") - 1)[/vba]

Not a pain in the butt at all. Hope this helps.