EXCEL表格里用VBA写了个动态时钟，打开新建表格出现运行错误9，下标越界，如何修改？请大神帮忙！
excel表格里参照别人用VBA复制了个动态时钟，主要问题是打开新建表格或者其他excel表格会出现运行错误9，出现下标越界，是VBA写有问题还是需要调试？如何修改？附图！
下图是正常的动态时钟：
代码为：
Sub 动态()
Application.OnTime Time + TimeSerial(0, 0, 1), "时钟"
End Sub
Sub 时钟()
Worksheets("厦门灏宸科技有限公司").Range("b1") = Now动态
End Sub
运行错误
还有This Workbook里写了一段，当打开这个文档时自动运行时间代码
代码为：
Application.OnTime Time + TimeSerial(0, 0, 1), "时钟"
Worksheets("厦门灏宸科技有限公司").Range("b1") = Now动态
Sub AotoTime1()
Dim NewTime As Date '定义NewTime的数据类型
Set myDocument = ThisWorkbook.Worksheets("Sheet1") '定义工作表
NewTime = Now + TimeValue("00:00:01") '更新时间是1秒
myDocument.Range("A2").Value = Time 'Sheet1 A2单元格显示动态时间
Application.OnTime NewTime, "AotoTime2"
'安排一个过程在将来的特定时间（Newtime）运行，调用Aoto2
End Sub
Sub AotoTime2()
Call AotoTime1 '调用Aoto1
End Sub
https://jingyan.baidu.com/article/fb48e8be11564b6e622e14bb.html
两个问题，有没有一个叫：“DN2”的工作表，还有将Cells("B2")改成：Range("B2")或Cells(2,"B")
如果以上都不是问题，那么得看一下要粘贴的文件，是否已经打开。