请教高手：vb连接Excel，如何合并单元格？？？？

我想用vb对excel的单元格进行合并，程序如下，运行后没有反映，请教是哪里出错了？  
   
  sub   mergecell(cellrange   as   string)  
  range(cellrange).select  
  selection.mergecells   =   true  
  selection.horizontalalignment   =   xlcenter  
  selection.verticalalignment   =   xlcenter  
  end   sub  
   
  private   sub   command11_click()  
      dim   xlapp   as   excel.application  
      dim   xlbook   as   excel.workbook  
      dim   xlsheet   as   excel.worksheet  
           
      set   xlapp   =   createobject("excel.application")    
      xlapp.visible   =   true    
      set   xlbook   =   xlapp.workbooks.open("d:12345.xls")    
      set   xlsheet   =   xlbook.worksheets(1)    
      xlsheet.activate  
   
      mergecell   "a1:a5"  
      xlapp.visible   =   true  
      set   xlapp   =   nothing  
      set   xlbook   =   nothing  
      set   xlsheet   =   nothing  
  end   sub  
   
 

• · 推荐参考文章：
• 电影服务器的管理器日志
• Windows Media 技术的最佳应用(一)
• Windows Media 技术的最佳应用（二）
• MediaServer电影服务器的安全和内容保护
• Windows Media高级工具应用
• 电影服务器中WMS9服务安装
• 远程管理WMS9电影服务器
• 简单解决流媒体拖动时很慢或者会断的问题
• 影视播放中的故障解决方法
• 网吧电影服务器引起文化部的关注

· 网友精彩回答：