excel - VBA 新手 - 似乎无法设置页脚

Question

主表包含从 1（在 F3 中）开始的一行表编号。代码需要循环遍历第 3 行，每次从 F3 偏移一列，因为工作表的数量会发生变化。我可以使用单个活动工作表设置页脚，但是当我尝试运行此循环以将每个工作表设置为在其页脚中包含主工作表中的第 4 行值时，没有任何反应。

Sub Footer()
i = 0
Do While IsEmpty(Worksheets("Master Sheet").Range("F3").Offset(0, i)) <> True
    ds_name = Worksheets("Master Sheet").Range("F3").Offset(0, i)
    footer_value = Worksheets("Master Sheet").Range("F3").Offset(4, i)
    Application.Worksheets(ds_name).PageSetup.LeftFooter = "Doc " & footer_value
    i = i + 1
Loop
End Sub

有谁知道我做错了什么？