excel中如何用vba将工作表sheet1重命名，因为要重命名的名称是变量，所以搞不定。

Question

要求是： 将工作表sheet1改名为上一日日期（变量）并加上一个N字。日期的个格式为NOV252010, 重命名后，sheet1会改成，比如，NOV252010N。不知用vba怎么写？请高手指点。（重命名为当日日期已经有答案，但重命名为上一日的日期怎么搞，仍不懂）

Answer 1

Dim i, j, k
'当日
i = UCase(Format(Now, "mmmddyyyy") & "N")
Sheet1.Name = i
'上一日
j = UCase(Format(DateAdd("d", -1, Now), "mmmddyyyy") & "N")
Sheet1.Name = j

Answer 2

当前日-1就是上一日