关于VBA解决方法

关于VBA
大家好，
我是VBA的新手，遇到些问题请大家指教。
Sub test1()

ActiveSheet.Range("a1:a10").Font.Bold = True

Dim i As Integer
i = 1
Do Until i > 10
ActiveCell.Value = i
i = i + 1
ActiveCell.Offset(0, 1).Select
Loop
End Sub
如上：
有两个问题：
1.ActiveSheet.Range("a1:a10").Font.Bold = True 是要让从a1到a10每个单元格中字体都为黑体，而运行结果只有a1是黑体，
其它单元格都不是。
2.我同时打开了两个excel，当选定excelworkbook1时，程序不报错。但当我选择excelworkbook2再运行时，程序运行到
Cells(1, 1).Select会报错。错误码1004，“应用程序定义或对象定义错误”。
请问如上两个问题是什么原因呢？谢谢大家
[解决办法]
第一个问题。语句没有错.Range("a1:a10").Font.Bold = True绝对没有问题。
第二个问题，你开了两个excel workbook,当你对单元格进行操作时，必须要指定是哪个工作簿的哪个工作表。