اجرای خودکار کد

[ali.b]

چکار کنم این کد خودکار انجام بشه
این کد واسه رنگی کردن ردیفی که اون سلول رو انحتخاب میکنید هست

Sub Macro4()'
' Macro4 Macro
'


Static rr
If rr <> "" Then
With Rows(rr).Interior
.ColorIndex = xlNone
End With
End If


r = Selection.Row
rr = r


With Rows(r).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

[khakzad]

سلام
برای اینکه کد با هر باز کلیک کردن روی سل اجرا بشه . این کد رو در selection change بنویسید

[khakzad]

اینم عکس مسیری که خواسته بودید