ciao a tutti
sto cercando di fare un banalissimo programmino in vba per farmi calcolare in automatico (al click di un pulsante) una serie di informazioni, ma non capisco perchè non mi esegue questa parte del programma
restituendomi l'errore in oggetto

codice:
Private Sub CommandButton1_Click()
riga = 26
colonna = 7
tappe = 0
Do While Foglio1.Cells(riga, colonna) <> ""
tappe = tappe + 1
colonna = colonna + 1
Loop
colonna = 7
For i = 1 To tappe
p1 = Foglio1.Cells(riga, colonna)
p2 = Foglio1.Cells(riga, colonna + 1)
trovato = 0
riga2 = 3
colonna2 = 1
 Do While trovato = 0
  If Foglio2.Cells(riga2, colonna2) = p1 Then
  MsgBox "trovato"
  trovato = 1
  Else
  riga2 = riga2 + 1
  End If
Loop
Next i
End Sub