代码保存到格式化的工作簿

Question

我有一个用户打开的模板，选择文本文件，VBA完成所有魔术。在代码的最后我出现了SaveAs对话框，用户输入名称并保存到适当的位置。我将此代码放在主模块的模块中。我遇到的问题是格式化文件中包含代码所在的模块。我不想要那个。我知道我之前已经弄明白了，但今天不是那一天。粘贴在下面的相关代码。我尝试过更改文件格式，将代码移到工作表中。我错过/遗忘了什么？

    Filename = "WhateverName_"
    SaveThiisFile = Application.GetSaveAsFilename(InitialFileName:=Filename, _
                                       fileFilter:="Excel Files   (*.xls), *.xls", _
                                       FilterIndex:=1, Title:="Save As")
    If ThisFile = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=SaveThisFile
    ActiveWorkbook.Close (False)