Private Sub CommandButton1_Click() For i = 2 To 7 If Worksheets("Foglio1").Cells(i, 7) = Me.Label1 Then Me.Label2 = "ciao" Next i End Sub