Further help on cell highlighting if change to contents
 

I am using the code below to indicate where a cell has changed value ( Thanks
Bob Philips,Bernie Deitrick).

As it is it works fine, but, is there anyway that the cell could be
highlighted when a cell is changed as a result of a formula change, as
opposed to a direct keyboard entry.
I have several OBDC downloads to run and it would be nice to quickly see
those cells that have changed.

Thanks.

Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)

If Intersect(TARGET, Range("AF5:BH5")) Is Nothing Then Exit Sub

On Error GoTo ws_exit
Application.EnableEvents = False

With TARGET
.Interior.ColorIndex = 38
End With

ws_exit:
Application.EnableEvents = True

End Sub

--
Message posted via http://www.officekb.com

Further help on cell highlighting if change to contents
 

If you want to keep a record of before and after, compare each cell and
highlight them. No built in support for it.

--
Regards,
Tom Ogilvy


"Francois via OfficeKB.com" wrote:

I am using the code below to indicate where a cell has changed value ( Thanks
Bob Philips,Bernie Deitrick).

As it is it works fine, but, is there anyway that the cell could be
highlighted when a cell is changed as a result of a formula change, as
opposed to a direct keyboard entry.
I have several OBDC downloads to run and it would be nice to quickly see
those cells that have changed.

Thanks.

Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)

If Intersect(TARGET, Range("AF5:BH5")) Is Nothing Then Exit Sub

On Error GoTo ws_exit
Application.EnableEvents = False

With TARGET
.Interior.ColorIndex = 38
End With

ws_exit:
Application.EnableEvents = True

End Sub

--
Message posted via http://www.officekb.com

Further help on cell highlighting if change to contents
 

Tom Ogilvy wrote:
If you want to keep a record of before and after, compare each cell and
highlight them. No built in support for it.

I am using the code below to indicate where a cell has changed value ( Thanks
Bob Philips,Bernie Deitrick).
[quoted text clipped - 22 lines]

End Sub


OK, Thanks for the reply.

--
Message posted via http://www.officekb.com