关于定义其他表中的range问题

[feigift]

For Counter = 1 To 7
Sheets("calculate").Activate
Set MyRange = Worksheets("calculate").Range(Cells(1, 1), Cells(10, 1))
MyRange.Value = 0

Next Counter

请问我定义calculate表中的range时，
Set MyRange = Worksheets("calculate").Range(Cells(1, 1), Cells(10, 1))
这句出错，当换成
Set MyRange = Worksheets("calculate").Range("a1:a10")
就行了，各位高手这是什么原因？

[titihao]

For Counter = 1 To 7
Sheets("calculate").Activate
Set MyRange = Worksheets("calculate").Range(Cells(1, 1), Cells(10, 1))
MyRange.Value = 0

Next Counter

这段代码在我的机子上运行是没什么问题的。。奇怪中。。