Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _
"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current weather
and
put the temperature in that cell?