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

Hi tegger,

How abt this? :D

Sub test_for_xmas_day2()
Dim c As Range
With Range("C2:C15")
.ClearContents
For Each c In .Offset(, -1)
If c.Value = DateSerial(2003, 12, 25) Then c.Offset(, 1).Value =
"Public Holiday"
Next
End With
End Sub


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"tegger" wrote in message
...
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