Hi Rick and Tim

Thanks for looking at my post. I think I posed my problem incorrectly
and/or missunderstand you solutions.

This code works fine, for the hardcoded 97401 zip. (Of course it wrapped the
long code line here in this post but works okay when copied back into the VB
editor.)


Sub SomeWx()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/97401?lswe=97401&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$2"))
.PreserveFormatting = True
.WebTables = "15"
.Refresh BackgroundQuery:=False
End With
End Sub

This code does not work where I try to Dim Zip as the value of D1. D1 is a
drop down of zip codes.

Sub SomeWx()
Range("A1:C5").ClearContents
Dim Zip As Long
Zip = Range("D1").Value

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/& Zip &?lswe=& Zip
&&lwsa=WeatherLocalUndeclared&from=searchbox_local wx""" _
, Destination:=Range("$A$2"))
.PreserveFormatting = True
.WebTables = "15"
.Refresh BackgroundQuery:=False
End With

End Sub

Thanks for your time.
Howard

"L. Howard Kittle" wrote in message
...
Helo Excel users and experts,

Excel 2002 SP3

The code below is supposed to return a short weather update from the area
of the zip code. It does not work, and no error prompt is given. If I
remove the two words "Zip" and type in 97401 in their place I will get the
weather update just fine..

I have a list of zip codes in a drop down in D1 of the worksheet. As you
can see I'm trying to Dim that D1 value as Zip to insert a new selected
zip code for different regional updates.

I've tried dimming as Long, and as String and used "Zip", Zip, &Zip& to
no avail.

How do I change the zip code in the weather code??

(By the way, you will see a double line break, _ _ in the "With
ActiveSheet.QueryTables..." line. I put it there for this post only as
that line of code does not accept a line break in the editor past the one
already there after "(Connection:= _".)

Sub SomeWx()
Dim Zip As Long
Zip = Range("D1").Value

Range("A1:B5").ClearContents

Range("A1").Value = "Eugene"
Range("C1") = Now()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/Zip? _ _
lswe=Zip&lwsa=WeatherLocalUndeclared&from=searchbo x_localwx""" _
, Destination:=Range("$A$2"))
.PreserveFormatting = True
.WebTables = "15"
.Refresh BackgroundQuery:=False
End With
End Sub

Perhaps I may have to use a select case set up with the various zip codes
hardcoded for each region.

Thanks for any help or suggestions.
Regards,
Howard