Excel VBA Highlighting cells on sheet change

Hi
I use the following code to highlight cells when values are changed. I also highlight
the last cell in that row to show that it has been changed
It works fine for one cell but when I copy the changed value
down with the mouse the cell that changes changes color but
the cell at the end of the row doesn't change color

Private Sub Worksheet_Change(ByVal Target As Range)
                    Application.Cells(Target.Row, Target.Column).Interior.Color = 65535
                    Application.Cells(Target.Row, 16384).Interior.Color = 65535
End Sub
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAsked:
Who is Participating?
 
Rgonzo1971Commented:
Hi,

pls try

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Interior.Color = 65535
    Target.Offset(0, 16384 - Target.Column).Interior.Color = 65535
End Sub

Open in new window

Regards
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Great answer. Thanks very much
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.