اشکال در احرای کد 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~]

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