View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Francois via OfficeKB.com Francois via OfficeKB.com is offline
external usenet poster
 
Posts: 109
Default 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