Borrar duplicados de todo el libro

Buenas noches tengo la siguiente inquietud. Resulta que tengo un libro donde contiene 10 hojas, en cada una de las hojas está la columna C donde debo ingresar valores numéricos de 7 caracteres y la columna D donde debo ingresar valores numéricos de 15 caracteres. Mi pregunta es: cual rutina debo utilizar para que chequee si existe algún dato duplicado tanto en la columna C como en la columna D. Les adelanto que tengo esta rutina pero solo me funciona para cada hoja y en la columna C.

Option Explicit
Private Sub Worksheet_Change(ByVal Celda As Excel.Range)
If Celda.Column = 3 Then
If Application.WorksheetFunction. _
CountIf(Range("C:C"), Celda.Value) > 1 Then
MsgBox " El número que está ingresando ya se encuentra asignado a otro cliente. Favor verificar e ingresar el número correcto.", vbOKOnly, " Número duplicado"""
Celda.Value = ""
Celda.Select
End If
End If
End Sub

PD: es necesario el mensaje para que advierta al usuario que el valor que esta ingresando se encuentra duplicado.

Gracias de antemano por la atención y el tiempo prestado.