Try below code:

Sub GetPageName()
Dim IE As InternetExplorer, c
For Each c In Sheet1.Columns(1).SpecialCells(xlCellTypeConstants )
Set IE = New InternetExplorer
'if the url in entered in cells as text then keep
'follwoing code line, and deletete next code line
IE.Navigate c.Value
'Or if the url is entered as a hyperlink then delete
'above code line and keep following code line
IE.Navigate c.Hyperlinks(1).Address
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
c.Offset(0, 1).Value = IE.LocationName
IE.Quit
Set IE = Nothing
Next c
End Sub

Sharad Naik

"Pablo" wrote in message
...
I put this out there earlier but may not have fully explained myself. I
have
a worksheet with a list of potential URLs in column A (A1...). I would
like
to take the URL and put it into an IE window, address field, and return
the
page name to the worksheet's column B (B1...). I want the macro to work
through the list by itself.

Lonnie and CodeSponge have gotten going but I am going to have troubles.

Thanks,