اشکال در احرای کد Highlight کردن سطر فعال

[ali.b]

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Change the NUMBER in the line of code reading 
'"Target.Interior.ColorIndex = 3 " in order to get a
'different color to highlight the active cell. 

Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3 
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target
End Sub

موقع اجرا میگه اسم ی ماکرو بده

[~M*E*H*D*I~]

ظاهرا هیچ مشکلی نیست ، کد رو کجا کپی می کنید؟