Sub test_for_xmas_day()
Dim i As Integer
Dim x As Date
For i = 2 To 15
x = Cells(2, i).Value

If x = "25-12-2003" Then
Cells(3, i).Value = "Public Holiday"
Else: Cells(3, i).Value = ""
End If
Next i

End Sub