merge excel cells in vb.net

   1:  Dim objRango As Excel.Range = objHojaExcel.Range("B1:B2")

   2:  objRango.MergeCells = True

   3:  objRango.HorizontalAlignment = Excel.Constants.xlCenter

   4:  objRango.VerticalAlignment = Excel.Constants.xlCenter

   5:   

   6:  objRango = objHojaExcel.Range("A7:D7")

   7:  objRango.Merge()

   8:  objRango.HorizontalAlignment = Excel.Constants.xlCenter

   9:  objRango.WrapText = True

  10:  objRango.ShrinkToFit = True

Dim objRango As Excel.Range = objHojaExcel.Range("B1:B2")

objRango.MergeCells = True

objRango.HorizontalAlignment = Excel.Constants.xlCenter

objRango.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter