I'm having trouble locating a new car with the options I want. Looking for
an Altima. I want to find all the Nissan dealers ijn a 50 mile radius and
get a leist of Inventory so I can look for the exact car I'm looking for.

The Nissan website is www.nissanusa.com.

Which do you think is the best way of getting the data. There are no tables
so a web query doesn't work. I'm also having problem getting morte than 4
dealers when I try to do a search of the dealer with the following code. I
can't get dealers name from this code.

URL = "http://www.nissanusa.com/apps/dealerlocator"
Request = "?zipCode=07508&tool=Home.Locator"

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate2 URL & Request

Do While IE.ReadyState < 4
DoEvents
Loop