Doug,

I haven't looked at you code so i assume it's OK but losing the undo stack
when you run a macro is a 'feature' of Excel. You can write a custom undo sub
for your code but it's messy. have a look here.

http://www.j-walk.com/ss/excel/tips/tip23.htm

Mike

"Doug" wrote:

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
--