Two worksheet event changes in a single VBA code.

[Livin404]

Greetings, I've tried to combine two worksheet event changes to a single VBA. I think I'm on the right path, I combined the two by adding another Application.EnablEvents. It works fine until I delete any row or cells then it doesn't work. Any suggestions, I'm sure it's just a little tweak?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Columns.Autofit
If Target.Cells.Count > 1 Then Exit Sub
If Taret.Column <> 6 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "G").Value = UCase(Split(Application.UserName, ",")(0))
Application.EnableEvents = True
End Sub

Thank you,

 

[StephenCrump]

It's not very helpful to say "doesn't work". What is actually happening? Or not happening?

A quick look suggests two possible problems:

1. You have a typo: Taret.Column (although I suspect your code is OK, and you've just miscopied it?)

2. You also need to remove the first: Application.EnableEvents = False

If the code exits the Sub at lines 4 or 5, the Sub won't be triggered by subsequent worksheet changes.

You may also need to reset Application.EnableEvents = True.

 

[Fluff]

Duplicate to: Insert User Name in cell after entry into another cell

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.