Microsoft Office Forums - View Single Post - [Solved] Merge table cells across columns but skip if column don't exist

macropod · 05-28-2016, 02:26 AM

Slightly simpler is:

Code:

Sub CellMerge()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  With Tbl.Rows(1)
    If .Cells.Count > 2 Then
      ActiveDocument.Range(.Cells(2).Range.Start, .Cells(3).Range.End).Cells.Merge
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

PS: When posting code, please use the code tags, indicated by the # button on the posting menu