corrected code: (missing a double quote in the last line)

Private Sub Combobox1_Click()
Dim res as variant
res = Application.Match(combobox1.Value, _
Worksheets("Sheet3").Range("A1:A100"),0)
Worksheets("Sheet1").Range("E1").Value = _
Worksheets("Sheet3").Range("B1:B100")(res).Value

End Sub

"Tom Ogilvy" wrote in message
...
listfillrange property of the combobox Sheet1!A1:A100

Private Sub Combobox1_Click()
Dim res as variant
res = Application.Match(combobox1.Value, _
Worksheets("Sheet3").Range("A1:A100"),0)
Worksheets("Sheet1").Range("E1").Value = _
Worksheets("Sheet3").Range("B1:B100)(res).Value

End Sub


--
Regards,
Tom Ogilvy

"nrage21 " wrote in message
...
Perhaps I should explain clearer...

----A------------B
ZipCode---- Area

11433------Jamaica
10458------Fordham
10003------Cooper
'.... etc. and so on

I would like the combobox to have the zip code values in column A...
and as one value is selected it pulls the corresponding value in columb
B.

The workbook has 3 sheets. Sheet1 has the combobox in Cell A1 I want
the corresponding value of the selection to be place in Cell E1.

The Zip Code and Area List are in Sheet3.

Can anyone help?? or can anyone direct me to a source where this kind
of info is available??

Thanks!!

- Larry -
VBA Amateur


---
Message posted from http://www.ExcelForum.com/