Need Help In PowerPoint Automation !!!!!!!

[helpSeeker]

Hi,
I am into powerpoint automation. I doing automation for PowerPoint 2002 or
above. In mine coding i am using code for text to fade Grey,But when i am
applying that code it is not showing correct output,but when I run the code
in "Debug mode" (F8)it is working perfectly.
Means what is happeing is that first bullet text is fading to grey & the
other bullet text becomes Blue,when I run mine code using "F5".But when I
run the same code in "Debug mode" using "F8" it use to shows that all the
bullet text in grey & it is working perfectly.Don't know why this is
happening.
Right now i am doing mine coding Using Visual Basic.
Can Any one help me in this,how to overcome this problem.I am here by
posting the code which I am Using.

*************Code Which I am Using in Mine Coding***************
Function ChangeTextToGrey()
Dim sld
Dim i As Long, a As Long
For Each sld In ActivePresentation.Slides
For i = 1 To sld.TimeLine.MainSequence.Count
If sld.TimeLine.MainSequence.Item(i).EffectType =
msoAnimEffectChangeFontColor Then
sld.TimeLine.MainSequence.Item(i).EffectParameters.Color2.RGB
= RGB(133, 133, 133)
End If
Next
Next
End Function

Plz this is vey Urgent if any one can help me.Thanks in Advance

Thanks