Apply background colour and font colour on sheets following specific naming pattern

Hello everyone,

I have put together the below code:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim i As Long, r1 As Range, r2 As Range

   For i = 6 To 300
      Set r1 = Range("b" & i)
      Set r2 = Range("b" & i & ":b" & i)
      Set r3 = Range("i" & i)
      Set r4 = Range("l" & i)
      Set r5 = Range("o" & i)
    
    If r1.Value = Sheet1.Range("D8") Then r2.Interior.Color = RGB(255, 51, 0)
    If r1.Value = Sheet1.Range("D7") Then r2.Interior.Color = RGB(255, 192, 0)
    If r1.Value = Sheet1.Range("D6") Then r2.Interior.Color = RGB(255, 255, 0)
    If r1.Value = Sheet1.Range("D5") Then r2.Interior.Color = RGB(146, 208, 80)
    If r1.Value = Sheet1.Range("D4") Then r2.Interior.Color = RGB(51, 204, 255)
    If r1.Value = Sheet1.Range("D3") Then r2.Interior.Color = RGB(255, 153, 204)
    If r1.Value = "" Then r2.Interior.Color = RGB(255, 255, 255)
      
    If r3.Value = Sheet1.Range("f3") Then r3.Interior.Color = RGB(204, 255, 51)
    If r3.Value = Sheet1.Range("f4") Then r3.Interior.Color = RGB(244, 136, 162)
    If r3.Value = Sheet1.Range("f5") Then r3.Interior.Color = RGB(255, 210, 17)
    If r3.Value = Sheet1.Range("f6") Then r3.Interior.Color = RGB(186, 225, 143)
    If r3.Value = Sheet1.Range("f7") Then r3.Interior.Color = RGB(245, 232, 216)
    If r3.Value = Sheet1.Range("f8") Then r3.Interior.Color = RGB(245, 232, 216)
    If r3.Value = "" Then r3.Interior.Color = RGB(255, 255, 255)

    If r4.Value = Sheet1.Range("f3") Then r4.Interior.Color = RGB(204, 255, 51)
    If r4.Value = Sheet1.Range("f4") Then r4.Interior.Color = RGB(244, 136, 162)
    If r4.Value = Sheet1.Range("f5") Then r4.Interior.Color = RGB(255, 210, 17)
    If r4.Value = Sheet1.Range("f6") Then r4.Interior.Color = RGB(186, 225, 143)
    If r4.Value = Sheet1.Range("f7") Then r4.Interior.Color = RGB(245, 232, 216)
    If r4.Value = Sheet1.Range("f8") Then r4.Interior.Color = RGB(245, 232, 216)
    If r4.Value = "" Then r4.Interior.Color = RGB(255, 255, 255)


    If r5.Value = Sheet1.Range("f3") Then r5.Interior.Color = RGB(204, 255, 51)
    If r5.Value = Sheet1.Range("f4") Then r5.Interior.Color = RGB(244, 136, 162)
    If r5.Value = Sheet1.Range("f5") Then r5.Interior.Color = RGB(255, 210, 17)
    If r5.Value = Sheet1.Range("f6") Then r5.Interior.Color = RGB(186, 225, 143)
    If r5.Value = Sheet1.Range("f7") Then r5.Interior.Color = RGB(245, 232, 216)
    If r5.Value = Sheet1.Range("f8") Then r5.Interior.Color = RGB(245, 232, 216)
    If r5.Value = "" Then r5.Interior.Color = RGB(255, 255, 255)
    
    
   Next i
End Sub

I would like it to be applied only to sheets named in "DD.MM" format

At the moment it works but because i pasted the code on each sheet; i want it to be in a module only.
I would also like the text in "I6:i90","l6:l90","o6:o90" to be white. (girly stuff, looks nicer )


can you please help?


thank you in advance