No permitir registros duplicados

Hola amig@s:

Uso el siguiente código que lo adecue con la ayuda de tod@s ustedes :

Private Sub CommandButton1_Click(): On Error GoTo HayErrores 'registrodeboleto

If Len(Trim(TextBox1)) = 0 Or _

Len(Trim(ComboBox1)) = 0 Then

GoTo HayErrores ' sale de la sub rutina antes de guardar

End If

x = Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1

Hoja3.Cells(x, 1).Value = CDbl(Label29) 'nº

Hoja3.Cells(x, 2).Value = CDate(TextBox1.Text) 'fecha

Hoja3.Cells(x, 3).Value = ComboBox1.Text 'fp

Hoja3.Cells(x, 4).Value = ComboBox3.Text 'cclt

Hoja3.Cells(x, 5).Value = ComboBox2.Text 'cte1

Hoja3.Cells(x, 6).Value = TextBox19.Text ' clt2

Hoja3.Cells(x, 7).Value = ComboBox4.Text 'recibo

Hoja3.Cells(x, 8).Value = CDbl(TextBox10.Text) 'Bs

Hoja3.Cells(x, 9).Value = CDbl(TextBox20.Text) 'Usd

Hoja3.Cells(x, 10).Value = TextBox21.Text 'obs

Hoja3.Cells(x, 11).Value = TextBox18.Text 'tc

ComboBox1.SetFocus

Exit Sub

HayErrores: MsgBox "Revisar FECHA , FORMA DE PAGO y TIPO DE CAMBIO por favor.." Exit Sub

Mi consulta es como evitar que se registre 2 veces el mismo recibo en la hoja seleccionada?

Hoja3.Cells(x, 7).Value = ComboBox4.Text 'recibo

Gracias

Jesús