为什么在VBA中可行的代码到了VB就不行了呢?

我在excel里用宏编写了以下代码，用于判断单元格("A2:A10")是否有合并：

If Range("A2:A10").MergeCells = True Then
    cells(2,7)="单元格被合并了"
else
    cells(2,7))="单元格没有被合并"
endif

运行结果正常。
但当我改写成VB后，却得不到正确结果（也没有错误提示）无论单元格是否被合并，其MergeCells均为“假”。请问这是什么原因呢？

附改写的VB程序段如下：

If xls簿.Sheets("Sheet1").Range("G2:G10").MergeCells =  True Then
    MsgBox ("单元格被合并了"), vbExclamation
else
    MsgBox ("单元格没有被合并"), vbExclamation
endif

谢谢各位指教。

--------------------编程问答-------------------- 各位：真不好意思，是我自己搞错了。
为此深深致歉！！
祝大家节日快乐！！ --------------------编程问答-------------------- ............ --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 打劫，把可用分全部交给我  --------------------编程问答-------------------- ……

补充：VB ,  数据库(包含打印，安装，报表)