Thread: Newby help
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bob Phillips
 
Posts: n/a
Default Newby help

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)

"Dave-Excel" wrote
in message ...

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


--
Dave-Excel
------------------------------------------------------------------------
Dave-Excel's Profile:

http://www.excelforum.com/member.php...o&userid=32066
View this thread: http://www.excelforum.com/showthread...hreadid=518158