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,

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,

For got mention that first you need to add reference to
"Microsoft Internet Controls" libraray.

Sharad

"Sharad Naik" wrote in message
...
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,

Sharad,

Thanks for the code. This seems to be exactly what I need.

"Sharad Naik" wrote:

For got mention that first you need to add reference to
"Microsoft Internet Controls" libraray.

Sharad

"Sharad Naik" wrote in message
...
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,

Oops,
I feel bad because you asked to clarify and I was away from my desk for
a few days.
Sorry about that.

Sharad Naik is right you have to reference
C:\WINDOWS\System32\shdocvw.dll
before you can play with the IE interface cleanly