The last two statement works in Office XP but not in Offce 2000, why?
Set FourWeeksCycle = Range("D9:AE9")
Set PHDate = Sheets("PH").Range("A2:A18")
For Each PHFind In FourWeeksCycle
If Application.CountIf(PHDate, PHFind.Value) = 1 Then 'Replace the code below
'Set f = PHDate.Find(PHFind, lookat:=xlPart
'If Not f Is Nothing Then
This message was edited by Emily on 2002-10-22 11:34
Set FourWeeksCycle = Range("D9:AE9")
Set PHDate = Sheets("PH").Range("A2:A18")
For Each PHFind In FourWeeksCycle
If Application.CountIf(PHDate, PHFind.Value) = 1 Then 'Replace the code below
'Set f = PHDate.Find(PHFind, lookat:=xlPart
'If Not f Is Nothing Then
This message was edited by Emily on 2002-10-22 11:34