why does this not work?
Set a =
WebBrowser2.Document.frames("fraSUTop").Document.g etelementsbytagname("TD")
Do
Set o = a.Item(D)
Sheets("Sheet3").Range("D1") = o.innertext
Sheets("Sheet3").Range("D2") = Len(Sheets("Sheet3").Range("D1"))
If Sheets("Sheet3").Range("D2") < 7 Then D = D + 1
Loop Until Sheets("Sheet3").Range("D2") = 7

and yet this works fine?
D = 10
Do

Set a =
WebBrowser2.Document.frames("fraSUTop").Document.g etelementsbytagname("TD")
Set o = a.Item(D)
ActiveCell = o.innertext
If ActiveCell = "" Then D = D + 1
Loop Until ActiveCell < ""
WebBrowser2.Visible = False
CommandButton5.Visible = False
CommandButton6.Visible = False

ActiveCell = o.innertext
WebBrowser2.Visible = False
CommandButton5.Visible = False
CommandButton6.Visible = False

I get object variable not set on the upper example! Im trying to get it to
search a range of items in a web page and return the first one with seven
characters (a post code ie 6 character and one space!