SendKeys with enter

[thread]

hi all
i'm trying to use SendKeys to simulate rutine action.
i'm doing the actions on web based system but from some reason after
using the enter in the sendkeys the rest of the actions are not
working
this is the code
Dim i, J As Long
Range("A1").Select
While Selection.Font.ColorIndex = 4
Selection.Offset(1, 0).Select
Wend
Selection.Font.ColorIndex = 4
i = Selection.Cells
SendKeys "%{TAB}", True
SendKeys "{DEL}", True
SendKeys i, True
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True

thank you for any advice

 

[Gary''s Student]

Try inserting a DoEvents command immediately after the

SendKeys "{ENTER}", True