I just started using this macro to highlight a particular row that I click on
in a table. Does anyone know why it clears the undo capability? If I make any
changes to my table, I cannot go back.

Const TableRangeAddress As String = "A2:AJ203"
Dim TableRange As Range
On Error GoTo Whoops
Application.ScreenUpdating = False
Set TableRange = Range(TableRangeAddress)
TableRange.Borders.LineStyle = xlLineStyleNone
If Intersect(Target, TableRange) Is Nothing Then Exit Sub
Intersect(Target.EntireRow, TableRange).BorderAround Weight:=xlMedium
Whoops:
Application.ScreenUpdating = True

End Sub
--