Excel - Macro buscar en todo el libro

=SI.ERROR(BUSCARV(A1;UCP!A4:X21;2;FALSO);SI.ERROR(BUSCARV(A1;UCF!A4:W21;2;FALSO);BUSCARV(A1;UCT!A4:AC20;2;FALSO)))

Function BuscarCodigo(Codigo As Range, Busca_Columna As Integer, Retorna_Columna As Integer) As String

On Error GoTo Salir:

   BuscarCodigo = "" ' -> valor si no lo encuentra

   For Each Hoja In Worksheets

       If Hoja.Name <> ActiveSheet.Name Then ' Excluye la hoja activa

          For Cont = 1 To Hoja.UsedRange.Rows.Count

              If Hoja.Cells(Cont, Busca_Columna) = Codigo.Value Then

                 BuscarCodigo = Hoja.Cells(Cont, Retorna_Columna)

                 Exit Function

              End If

          Next

       End If

   Next

   Exit Function

Salir:

   BuscarCodigo = "#ERROR!"

End Function

=BuscarCodigo(A1;1;2)