Hello guys,

I'm am trying to lock all cell, and make cell content bold until the date of
today is encountered. the range contains dates in the default date format
(this is European style date formatting, thus dd/mm/yyyy). However, it keeps
on looping...

any suggestions about this code?

Sub Button_Click()
Dim currentDate As Date
currentDate = Date

For Each c In Range("D5:D369")
Do Until c = currentDate
c.Font.Color = RGB(0, 255, 0)
c.Locked = True
c.Font.Bold = True
Loop
Next c
End Sub