urgent excel data help

[rock12345]

i have created an excel file.i need to check if the value of one the cell value and if true display other cell values in a listbox.all i m getting is a blank listbox.
For i = 2 To i = 100


If (xlsheet.Range("2,i").Value = ("GAME")) Then
a = (xlsheet.Range("1,i").Value)
List1.AddItem (a)


End If
Next i
help needed

[aio]

Check first if the list box you have inserted is an activeX or from excel form menu. The later can only fetch data by setting one of its property to a range of cells.

Another thing to check is the text comparision -- if you dont have Option Compare Text at the top of the module, a "GAME" would be different from a "Game"