Problema al guardar datos desde textbox a hoja

Tengo el siguiente código desde un formulario, cuando edito el dato desde un listbox en otro formulario y le doy a aceptar me tiene que guardar los datos pero no lo hace, alguien me puede ayudar, muchas gracias:

Private Sub CommandButton1_Click()
Set h = ThisWorkbook.Sheets("PRUEBA")
uf = h.Range("G" & Rows.Count).End(xlUp).Row
For x = 2 To uf
    If h.Cells(x, "G") = TextBox2.Text And h.Cells(x, "H") = TextBox3.Text Then
        h.Cells(x, "F") = TextBox1.Text
        h.Cells(x, "G") = TextBox2.Text
        h.Cells(x, "H") = TextBox3.Text
    End If
Next x
End Sub