[VBA - Excel] Problema con l'if

Ciao a tutti.

Vi espongo il mio problema. Vorrei creare una macro in Excel che legga tutte le celle di una colonna e quando il contenuto della cella è uguale a una TextBox (o variabile), scriva un testo nella cella accanto. Ho creato un UserForm con una TextBox e un Command e ho usato il seguente codice come CommandBotton1_Click.

Code:

	Dim riga As Integer

	Dim colonna As String

	Dim testo As String

	riga = 1

	colonna = "A"

    testo = TextBox1

	Do

	riga = riga + 1

	riga = ActiveCell.Row

	colonna = ActiveCell.Column

	If ActiveCell = testo Then

	Exit Do

	End If

	Loop

	Range(B & riga).Select

	ActiveCell.FormulaR1C1 = "Testo di esempio"

Eseguendo, la macro si blocca e poi si blocca anche tutto Excel.

Mi potete dire se il codice è giusto? Grazie.

secondo me ti sei incasinato inutilmente, basta una cosa tipo



x = 1 'indice della riga

y = 2 'indice della colonna



Do While Cells(x, y) = testo

x = x + 1

Loop

Cells(x,3) = "Testo d'esempio"