Selection.Borders

Heb hier een lijst met vrijdagen (Trekkingen) op een jaar met daaronder ingevulde gegevens.
Nu zou ik graag hebben dat de kolom met de dag van die week omlijnd wordt met een rode en dikke lijn,
en deze word aangepast van zodra ik volgende week kijk en omlijnd is.

Ik heb dit al eens gezien maar dan onder de dagen vandaag is kolom omlijnd enz...

In de bijlage vind je al een voorbeeld van wat ik bedoel. (Normaal is deze een gewone zwarte lijn)
Het moet waarschijnlijk iets vrij simpel zijn maar ik blijf er geblokkeerd op zitten.

Begin eerst eens alle overbodige voorwaardelijke opmaakregels te verwijderen.



Resulteert in 366, die bij iedere wijziging in het werkblad herberekend worden.

Ik hoop dat dit voldoende is.

Blijkbaar werkt Dim functie niet iemand argumenten voor dit, heb al verschillende methode geprobeerd. hoort bij de bijlage: AfdrukInleg1-1.xls
Dim Friday As DayOfWeek = DateTime.Now.dayofweek
'
'
'
LijnKleur Macro
'
Private Function dayW() As Boolean
' Dag van de week.
Dim Friday As DayOfWeek = DateTime.Now.dayofweek
'
If Range("D1:CQ1").Value = "dayW = dayweek.Friday" Then
ElseIf Column Then

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("D43").Select
End If
End Function