Formatting ??

[mjmoon]

I have a spread sheet sumbitted to me that I want to make changes to individual cells, either iput a different number in it or change the headings. The cells are currently formated black however I want to be able to change the format to red only for the cells I type in. End result is the user can see the changes I made. Right now I am making the change in the individual cell then clicking on the format icon to change it to red. There has to be an easier way where I can change some global setting to have any new data that I enter be my color of choice. Thanks in advance for your consideration.

Marc

 

[lenze]

Use a Change Event

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub

OR
Add a comment

Public preValue As Variant 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Count > 1 Then Exit Sub 
    Target.ClearComments 
    Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised " & Format(Date, "mm-dd-yyyy") & Chr(10) & "By " & Environ("UserName") 
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Count > 1 Then Exit Sub 
    preValue = Target.Value 
End Sub

lenze

 

[mjmoon]

Thanks I will give it a try