object required error 424

[adpatel]

I have following vba code which throws error of object required error 424 please help me on this

[COLOR=#242729][FONT=Consolas]With Worksheets("OPTIONS").Activate.QueryTables.Add(Connection:= _ mystr, Destination:=ThisWorkbook.Worksheets("OPTIONS").Range("$A$1"))[/FONT][/COLOR]

any help will be appriciated by word of thanks

 

[RoryA]

Remove the .Activate part.

 

[RoryA]

It seems you have subsequently asked this same question elsewhere, so I'll close this to avoid anyone else wasting their time.