Como modificar la siguiente macro para que funcione en dos libro. Principal.xlsm y Registro.xlsm

Sub Guardar()

Set h1 = Sheets("Principal") 'Colocar el nombre de la hoja donde está el dato que se quiere evaluar.
Set h2 = Sheets("Registros") 'Colocar el nombre de la hoja donde se encuentran los registros para ser comparado con el dato mencionado mas arriba.
'
If h1.[B9] = "" Then 'Entre los corchetes colocar la celda donde esta el dato que se quiere evaluar.
MsgBox "Falta colocar el código en la celda B9", vbExclamation, "GUARDAR" 'Entre comillas mensaje que se muestra si no hay datos en la celda definida mas arriba.
Exit Sub
End If
Set b = h2.Columns("B").Find(h1.[C9], lookat:=xlWhole) 'Cambiar las "b" por la columna donde se encuentran sus registros a evaluar, y cambiar [C9] por la celda que se quiere evaluar.
If Not b Is Nothing Then
MsgBox "El código ya existe", vbCritical, "GUARDAR" 'Entre las primeras comillas mensaje que se muestra si el dato evaluado existe en los registros.
Exit Sub
End If
'
'A continuación colocar el nombre de su macro.
'
Guardar2
'Fin de tu macro
MsgBox "El dato se guardó", vbInformation, "GUARDAR" 'Entre las primeras comillas mensaje que se muestra si su macro se ejecutó satisfactoriamente.
End Sub