This code is working fine, but it looks awful (yes, I am a rookie on this thing). How can I improve it to look better?Private Sub Worksheet_Change(ByVal Target As Range)'Conditional FormattingApplication.ScreenUpdating = FalseIf Target.Column > 6 And Target.Column < 8 And (Target.Value = G Or Target.Value = Y Or Target.Value = R Or Target.Value = g Or Target.Value = y Or Target.Value = r) ThenSheets(Pending).Cells(1, 1).CopyCall ChangeGEnd IfIf Target.Column > 4 And Target.Column < 6 And (Target.Value = High Or Target.Value = Medium Or Target.Value = Low Or Target.Value = high Or Target.Value = medium Or Target.Value = low) ThenSheets(Pending).Cells(1, 1).CopyCall ChangeEEnd IfApplication.ScreenUpdating = TrueEnd Sub
Copy Cell on Worksheet_Change event if some criteria is met
vba;event handling;excel