Border in word table with vertically merged cells

Hello,

I am trying to have a macro button on my toolbar that will place a thick gray border on the top of the row my cursor is in. I am running into an error that states:

"Run-time error '5991'
Cannot access individual rows in this collection because the table has vertically merged cells."

This is a very helpful error code, but I don't know how to fix my code to avoid this problem. This error occurs even if my cursor is not in a row that contains merged cells, but somewhere else in the table does.

This is my code:

Private Sub darkborderrow()
Dim oRow As Row
Set oRow = Selection.Rows(1)
With oRow.Range.Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorGray60
End With
End Sub

I will also attach a sample document with tables and code that this problem would occur with incase that would be helpful.
Attachment 23174

Thank you for all of your help,
Emily

Try:

Code:

---

Sub DarkBorderRow()
Dim r As Long, c As Long
With Selection
  r = .Cells(1).RowIndex
  With .Tables(1).Range
    For c = 1 To .Cells.Count
      With .Cells(c)
        If .RowIndex = r Then
          With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth300pt
            .Color = wdColorGray60
          End With
        ElseIf .RowIndex > r Then
          Exit For
        End If
      End With
    Next
  End With
End With
End Sub

---

That worked!

Thank you Paul!