Necesito ayuda para ejecutar una macro si un valor de una celda existe en un rango en otro libro

Hola Buen Día, Necesito ayuda con una macro que no logro conseguir.... Tengo lo siguiente:

Sub Identificación()

Dim Identidad As String

Identidad = InputBox(("Coloque el número de Identidad")

Range("A1").SelectActiveCell.Value = cedula_persona

Necesito que dependiendo de que el valor que se introduce en el InputBox exista en un rango en otro libro, me ejecute una siguiente acción.... 

Algo que funcione como la siguiente macro:

If Application.CountIf(Worksheets("Hoja2").Range("A1:A20"),Worksheets("Hoja1").Range("A1")) > 0 Then

Call Macro2

Else

MsgBox ("código de identidad no existe")

End If

Pero el problema es que el rango donde debe encontrarse ese valor no esta en una hoja del mismo libro sino de otro libro distinto....

Si pueden ayudarme les agradezco mucho y gracias por la molestia y la atención...

Jazc.