هایلایت کردن سلول های ویرایش شده

[rasools13]

واقعا ممنونم از پیگیری موضوع
اما با کد جدید باز مشکل جدیدی به وجود اومد!
کلا دیگه نمیشه ردیف یا ستونی رو حذف کرد!
به محض حذف کردن یک ردیف یا ستون در اکسل، دوباره ستون یا ردیف حذف شده بر میگرده!

خوب ردیفی رو حذف نکنید تا ارور نده
ببخشید حواسم به این موضوع نبود
این کد اصلاح شده است

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim CelValue As Variant
    Dim Vtxt As String
    On Error GoTo ExitHandeler
    Vtxt = Target.Value
    Application.EnableEvents = False
    CelValue = Target.Value
    Application.Undo
    If Target.Value <> "" Then
        If Target.Value <> CelValue Then
            Target.Interior.ColorIndex = 6
            Target.Value = CelValue
        End If
    Else
        Target.Value = CelValue
    End If
ExitHandeler:
    Application.EnableEvents = True
End Sub 

[hasa2]

ممنون حل شد!