excel vba 工作簿事件

把下面子程序中的代码加入到workbook-open（）事件中：
Sub aaa()
Dim t, d, n, dh, c
t = 0
d = Replace(Date, "-", "")
n = ThisWorkbook.Sheets("数据库").Range("a65536").End(xlUp).Row
For Each c In Range("a3:a" & n)
dh = Left(c, 8)
If dh = d Then
t = 1
num = 1 & Right(c, 3)
End If
Next c
If t = 1 Then
ThisWorkbook.Sheets("面板").Range("h2") = d & "-" & Right(num + 1, 3)
Else:
ThisWorkbook.Sheets("面板").Range("h2") = d & "-001"
End If
End Sub

有这么难吗，隔时间太长了，你直接将样板发我一下，我给你做，懒得打文字，如果不能百度发，你Q我, 6 4 4 6 8 9 7 3 6

上次不也是你么，不是解决了吗