No permitir dato duplicado

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