Can't compile, module empty?

[davegb]

I've copied a macro from here and modified it for my situation. I want
to open each file in the "Base" directory, run "SPSSClean" on it, the
save it to the "Mod" directory.

Sub MoveandClean()
Dim strDirBase, strDirMod, strFName As String

strDirBase = "H:\My Documents\Jenise M\PIP Drilldown\SFY 05 Q2\Base"
strDirMod = "H:\My Documents\Jenise M\PIP Drilldown\SFY 05 Q2\Mod"
strFName = Dir(strDirBase)

Do Until strFName = ""

Workbooks.Open strDirBase & strFName ', True, False

Call SPSSClean

ActiveWorkbook.SaveAs Filename:=strDirMod & "\" & strFName &
"mod"
ActiveWorkbook.Close
strFName = Dir()
Loop

End Sub

The macro does nothing. It gets to "do until strFName = "", then skips
to end sub. Doesn't see the files at all. A watch on strFName says
"Can't compile, Module empty". What does module empty mean? Obviously,
there's something in the module.
Any suggestions?
Thanks all.

 

[davegb]

The correct error message is "cant compile module". The empty is the
next field in the Watch window

 

[Tom Ogilvy]

from this immediate window:

? dir("C:\data5")
< this returns nothing >
? dir("C:\data5\")
5B_73_TOFL.xls

so try puting a "\" on the end of strDirBase

better, try putting a "\*.xls" on the end