VBA code to change color of text based on location of active cell?

[EssKayKay]

Hello,

I have a question related to previous posting if you please.

I am looking for way to change the color of the text in a cell in column C based on the cell that is active in column I for the corresponding row. That is, if cell I44 is the active cell, then the text in cell C44 changes to red.

I have coding I received elsewhere that does this for a different column relationship (I apologize to the author as I don’t exactly remember who gave this to me). As example, in my current code, if the active cell is M55 then the text in C55 changes to red. I’d like a similar thing to happen if the active cell is in column I.

Here is my existing code. Please note, the proposed code does not have to be the same as the current. I simply posted it as an example. If you have a different idea that’s fine –

Option Explicit
Public Old As Integer
Public Now As Integer

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    If Not Intersect(target, Range("M32:M2032")) Is Nothing Then
      Now = (Split(ActiveCell(1).Address(1, 0), "$")(1))
          If (Old <> Now) Then
             UnProtect_It
             Range(Cells(Now, 3), Cells(Now, 3)).Font.Color = vbRed
             If Old Then Range(Cells(Old, 3), Cells(Old, 3)).Font.Color = False
             Range(Cells(Now, 3), Cells(Now, 3)).Font.Bold = True
             If Old Then Range(Cells(Old, 3), Cells(Old, 3)).Font.Bold = False
             Protect_It
          End If
       Old = Now
    End If

Thanks for viewing,
Steve K.

 

[EssKayKay]

Thank you all very much for your input. With a little adjustment I have this working perfectly.

Again, my sincere appreciation,
Steve

 

[EssKayKay]

OOPS - I may have spoken too soon (could not edit). I ran into a few more issues. I'll keep working on it and be back with my results.
Keeping my fingers crossed. . .

 

[EssKayKay]

Got it. I had to rearrange some coding in my Worksheet_SelectionChange sub. Seems to be doing what I want now.
As noted, you all are most certainly appreciated. . .

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.