This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Creates a merged cell from the specified range. When you create a merged cell, the value in the upper-left cell in the specified range is used for the merged cell value. All other cell values in the merged cell are ignored.
expression An expression that returns a Range object. This method fails if the range only partially encloses a previously merged cell.
Across Optional Variant. True to merge cells in each row in the specified range as separate merged cells. The default value is False.
This example creates a merged cell from the range B2:C5 and puts a thick red border around the merged cell.
Set ssConstants = Spreadsheet1.Constants
' Merge cells B2:C5.
' Set a variable to the merged range.
Set rngMerged = Spreadsheet1.ActiveSheet.Range("B2").MergeArea
' Format the merged cell.
rngMerged.Borders.Color = "Red"
rngMerged.Borders.Weight = ssConstants.owcLineWeightThick
rngMerged.HorizontalAlignment = ssConstants.xlHAlignCenter
rngMerged.VerticalAlignment = ssConstants.xlVAlignCenter