You would need to add a line of code right above the "ChDir" if you're going across different drives...

[vba]ChDrive "F:"[/vba]

Also, your filter isn't setup like I had it, it should be something like this...

[vba]sFilter = "TITLE (*.xlsm), *.xlsm"[/vba]