在文件夹中的每个文件中执行宏

Question

我有一个复杂的宏，我想在文件夹中的每个文件上运行。每个文件都被修改后，循环宏应该结束。

我修改了本网站上的一些代码，但它没有打开文件夹中的任何文件。我是否需要为每个文件使用另一个“打开”命令？

Sub LoopThroughFolder()

Dim StrFile As String
StrFile = Dir("C:\Users\Sample Folder\")
Do While Len(StrFile) > 0
    Application.Run "'FX Regression Model.xlsm'!CalculateWeighting"
    StrFile = Dir
Loop

End Sub

任何建议都将不胜感激。谢谢！