VBA or Conditional Format to change font on scroll

In over my head...help. I need to create code to change the font color in A4 to white when a user scrolls down to row 15. This is my failed attempt:

Sub ChangeFontColor()

   If ActiveSheet.Name = "Test" Then
      If ActiveWindow.VisibleRange.Rows(15) Then
         Range("A4").Font.Color = RGB(255, 255, 255)
      End If
   End If

End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you (and indentation) this time because you are a new member. --6StringJazzer

Or is there a conditional formatting formula I could use instead?

Spreadsheet attached.... sample.xlsm

If you want this code to work on a specific sheet, put it in the module for that sheet.

There is no built-in event to determine that the user has scrolled, but you can use the ChangeSelection event which will trigger if they click on any cell. It is possible to write some complicated code to detect scrolling but I'm not sure it's worth it, depending on exactly how you want this to work.

I put this code in your Test sheet module. Any time you select a cell, it will turn the font white if row 15 is visible on the screen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      If Not Intersect(Range("A15"), ActiveWindow.VisibleRange) Is Nothing Then
         Range("A4").Font.Color = RGB(255, 255, 255)
      End If
   
End Sub

If you really really need to detect scrolling let me know and we'll go down that rabbit hole.

Well to be fair you didn't ask for that.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      If Not Intersect(Range("A15"), ActiveWindow.VisibleRange) Is Nothing Then
         Range("A4").Font.Color = RGB(255, 255, 255)
      Else
         Range("A4").Font.Color = RGB(0, 0, 0)
      End If
   
End Sub