VBA – Determine Start and End Column of a Merged Cell

Here is example code to determine the Start and End Column of a Merged Cell. It assigns the value of each column to a variable and returns them in a message box.

Determine Start and End Columns of Merged Cells

Public Sub StartEndMerge()



'Declare Variables

Dim StartColumn As Integer

Dim EndColumn As Integer



'Assign Variables

StartColumn = ActiveCell.Column

EndColumn = Selection.Columns.Count + StartColumn - 1



'Show Results

MsgBox "Start Column " & StartColumn

MsgBox "End Column " & EndColumn



End Sub