1. Open up each url link and perform some tasks (code provides a place holder for performing the tasks. Tweak accordingly).
2. Use the same browser window to open the URLs.
3. Close the browser window once all the work is done.
Check the below code to get the desired result.
Public Sub OpenURLList()
Dim rowcount As Integer
Dim urlToOpen As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
rowcount = 1
Do While Sheets("Sheet1").Range("A" & rowcount) <> ""
urlToOpen = Sheets("Sheet1").Range("A" & rowcount).Value
'Open the links in the same browser
'Perform your events here
MsgBox urlToOpen & " is open. Check your browser"
rowcount = rowcount + 1
Hope you had fun playing with the URLs and Excel. Let me know your comments.