求助，急！

若风1

Workbooks.Open Filename:=k
Windows(h).Activate
riqi = Year(Now()) & "-" & Month(Now()) - 1
For n = 1 To ThisWorkbook.Sheets.Count
If f.Worksheets(n).Name = riqi Then
dd = dd + 1
End If
Next n
MsgBox (dd)

If dd >= 1 Then
MsgBox ("该月份的日记帐表已经备份，不需要重新备份！")

上面是我做的一个小程序的片段，本意是在一个工作簿的各个工作表名之间循环，发现表名＝riqi，则dd就＋１

但现在存在一个问题，我要循环的工作簿是h，但实际运行时程序判断默认运行的表是按钮所在的表

我感觉可能是　ThisWorkbook.Sheets.Count与
If f.Worksheets(n).Name = riqi Then
有问题，但不知道该如何写，请高手帮助！！

老鬼

将thisworkbook改成activeworkbook

若风1

十分感谢