Try:
Code:
Sub FormatRows()
Dim i As Long, StrRows As String
If Selection.Information(wdWithInTable) = False Then Exit Sub
StrRows = InputBox("Please input the row #s to process." & vbCr & "(e.g. 1,2,3,5)")
On Error Resume Next
With Selection.Tables(1)
For i = 0 To UBound(Split(StrRows, ","))
With .Rows(Trim(Split(StrRows, ",")(i)))
.Borders(wdBorderLeft).ColorIndex = wdWhite
.Borders(wdBorderRight).ColorIndex = wdWhite
.Borders(wdBorderTop).ColorIndex = wdWhite
.Borders(wdBorderBottom).ColorIndex = wdWhite
.Borders(wdBorderVertical).ColorIndex = wdWhite
End With
Next
End With
End Sub