Thanks for the info. I am getting a syntax error "..Visible = True" when I
place the code in a sub routine and run it. Is there anything I need to do
to set this up?

"CodeSponge" wrote:

This should do what you want



Set IE = CreateObject("InternetExplorer.Application")
Set worklist = Selection.EntireRow.Rows

With IE
..Visible = True
..silent = True

'Work the list
For Each ticket In worklist
..Navigate "Some webpage"
Do Until Not IE.Busy And IE.readyState = 4 ' 4 ==
READYSTATE_COMPLETE
DoEvents
Loop

'Set Solution ID
your_cell = .Document.Body.Title.Value
Next
End With