循环的VBA输出到错误的工作表（简单）

执行时，此代码将创建一个新工作簿，然后将其保存到我的目录中。然后，我需要它用时间戳填充新工作簿的“A”列，但我的循环正在填充原始工作簿的“A”列。MsgBox确认Activesheet确实指向新工作簿。我错过了什么

'CREATING THE SHEET AND SAVING IT

Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
ActiveSheet.Name = "MySheet"
ActiveWorkbook.SaveAs "MyDirectory\MyWorkbook" & Space(1) & datetime

'FILLING COLUMN "A" WITH THE CURRENT DATE

With Workbooks("MyWorkbook" & Space(1) & datetime).Worksheets("MySheet")
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        Cells(i, 1).Value = Format(CStr(Now), "mm_dd_yyyy")
    Next i
End With

---

当将

与

一起使用时，必须在父对象后面的每个对象前面指示带有

的链接：

Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
ActiveSheet.Name = "MySheet"
ActiveWorkbook.SaveAs "MyDirectory\MyWorkbook" & Space(1) & datetime

'FILLING COLUMN "A" WITH THE CURRENT DATE

With Workbooks("MyWorkbook" & Space(1) & datetime).Worksheets("MySheet")
    For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
        .Cells(i, 1).Value = Format(CStr(Now), "mm_dd_yyyy")
    Next i
End With

---

当将

与

一起使用时，必须在父对象后面的每个对象前面指示带有

的链接：

Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
ActiveSheet.Name = "MySheet"
ActiveWorkbook.SaveAs "MyDirectory\MyWorkbook" & Space(1) & datetime

'FILLING COLUMN "A" WITH THE CURRENT DATE

With Workbooks("MyWorkbook" & Space(1) & datetime).Worksheets("MySheet")
    For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
        .Cells(i, 1).Value = Format(CStr(Now), "mm_dd_yyyy")
    Next i
End With