Macro issue by inserting or deleting a row!

[Jurajko]

Hi everyone,
i need a help with the VBA code, that should insert the current date and username as soon as the word "done" is inserted in some of the cells in the column S.
It works until I delete or insert a new row. Then I get the Issue ´13´ and the line with If Target.Value ="done" is highlighted.
Can you help me to adjust the code, so it works without any Issue? Thank you in advance!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("S:S")) Is Nothing Then
If Target.Value = "Done" Then
Target.Offset(0, 7).Value = Date
Target.Offset(0, 8).Value = Environ("username")
Else
Target.Offset(0, 7).ClearContents
Target.Offset(0, 8).ClearContents
End If
End If
End Sub

 

[Jurajko]

Jurajko,

Cross-posting (posting the same question in more than one forum) is not against our rules, but you must use the method of doing so covered by #13 of the Forum Rules.
If you do cross-post in the future, please follow these rules and provide the links amd then there shouldn’t be a problem.

ok, sorry, i posted it on only these 2 Forums

 

[Joe4]

ok, sorry, i posted it on only these 2 Forums

No worries.
Just be sure to be aware of this policy moving forward.
Thanks

 

[smozgur]

no, i used your code

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.