If and For errors

[dantheman9]

Hi i can't seem to work out how to fit this For code inside an If statement without vba complaining about it.

If oldhtml <= cellhtml And Timerun > oldtime then
For i = 0 To internetpage.Count -1
If InStr(1,internetpage(i).Document.Title, "Test") > 0 Then
internetpage(i).refresh
End If
Exit For
oldtime = Currtime
End If    ' End If without Block if error

 

[VoG]

Should it be something like this?

If oldhtml <= cellhtml And Timerun > oldtime Then
    For i = 0 To internetpage.Count - 1
        If InStr(1, internetpage(i).Document.Title, "Test") > 0 Then
            internetpage(i).Refresh
            Exit For
        End If
    oldtime = Currtime
    Next i
End If

 

[dantheman9]

thats it,

thanks VOG