Hi All!

I have a problem with a ComboBox ListFill Range. I use this code fo
the first ComboBox:

Sheets("Start").Select
x = Application.Match(Val(ComboBox2), Range("A2:A1002"), 0)
If IsNumeric(x) Then
ComboBox3 = Range("B2:B1002").Cells(x) 'ListFillRange
End If

ComboBox3 =cells(x), column("B") = Range("B2:B1002").Cells(x)
vertical match.
This one works ok.

But:

Then i want ComboBox4 to match:
If cells(x)= ("A2") then ComboBox4= Row("2"), Columns ("L:Q"),
= ("L2:Q2") .Cells(x) = horizontal match.

I just can't make this one work.

Suggestions?

/Stromm

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