Looks like a simple WebQuery will get it -

Sub QueryChemicalData()
Dim sUrl As String

' two parts to avoid line wrapping!
sUrl = "http://spreadsheets.google.com/pub?key="
sUrl = sUrl & "twQ35hFIq-y0N84xQ5l0ICQ&output=html"

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sUrl _
, Destination:=Range("A1"))
.Name = "ChemicalData"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False ' << note default is True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

' and to update -
Sub RefreshQ()
Dim qt As QueryTable

Set qt = ActiveSheet.QueryTables("ChemicalData")
'qt.BackgroundQuery = False
qt.Refresh

End Sub

Regards,
Peter T



"Roger on Excel" wrote in message
...
There is a internet page with chemical data :

http://spreadsheets.google.com/pub?k...CQ&output=html

It has chemicals in the first column and proerties in adjacent columns.

Is there a way to have a userform lookup a chemical in a textbox from the
websites 1st column and then populate other textboxes with the adjacent
data
from the table?

Can anyone help?

Thanks,

Roger