Newby help

D

Dave-Excel

Freind of mine uses this forum a fair bit, comes highly reccomended :)

Anyway, could do with a little help.....

I have a spreadsheet with multiple data types across the entire
worksheet (Currancy, Data and Text). Now, im sending this to a data
editor for review and I need to know......

If anything is changed from the original file I sent, is there a way
Excel automatically changes the font color to red without any input
from the editor?

Thanks for any help guys.

Dave
 
A

Ardus Petus

Insert the following procedure into ThisWorkbook code:

'--------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Characters.Font.ColorIndex = 3
End Sub
'--------------------------------------------------

HTH
--
AP


"Dave-Excel" <[email protected]> a
écrit dans le message de
news:D[email protected]...
 
B

Bob Phillips

You could try this
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Const fReview As Boolean = False

On Error GoTo ws_exit:
Application.EnableEvents = False
If fReview Then
Target.Font.ColorIndex = 3
End If

ws_exit:
Application.EnableEvents = True
End Sub


Just before you ship the workbook. change the Const fReview to TRUE, and
save it.

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
Top