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.