Hello WhenUrAJet,
The attached workbook has the macro below installed to change the cell font colors to match, only for the RSR names. The macro is in the ThisWorkbook module Workbook_SheetChange event. This allows the same macro to be shared by all the worksheets. The macro is triggered whenever the RSR cell content is changed.
Sub ChangeFontColor(Target)
Dim C As Variant
Dim Cell As Range
Dim MasterWks As Worksheet
Dim R As Long
Dim Wks As Worksheet
Set MasterWks = Worksheets("Master")
With MasterWks
C = .Cells(3, .Columns.Count).End(xlToLeft).Column
Set Rng = .Range(.Cells(3, "A"), .Cells(3, C))
End With
Set Wks = Worksheets(Target.Parent.Name)
If Wks.Name = MasterWks.Name Then Exit Sub
With Target
R = .Row
If .Column = 2 And R > 4 Then
For Each Cell In Rng
If Cell.Value Like Wks.Name & "*" Then
MasterWks.Cells(R, Cell.Column + 1).Font.ColorIndex = ActiveCell.Font.ColorIndex
Exit For
End If
Next Cell
End If
End With
End Sub
Sincerely,
Leith Ross
Bookmarks