Sub elso() Dim i As Integer nev = InputBox("Mondd a nevet! ") For i = 9 To 32 If Cells(i, 2).Value = nev Then MsgBox Cells(i, 1) End If Next End Sub