Excel - Validar la no repetición de un texto en un libro xlsm.

Sub Function Existe_Texto(Testo as String) As Boolean

    Dim Fila As Long,

    Existe_Texto= False

    With Sheets("Hoja1")

        Fila = 2

        While .Cells(Fila, "B") <> Empty And Not Existe_Texto

            If .Cells(Fila,"B") = Texto Then Existe_Texto = True

        Wend

    End With

End Function

Sub Function Existe_Texto(Testo as String) As Boolean

    Dim Fila As Long

    On Error Goto Error

    Fila = Application.WorksheetFunction.Match(Texto, Sheets("Hoja1").Range("B:B"), 0)

    Existe_Texto = (Fila > 0)

    Exit Function

Error:

    Fila = 0

    Resume Next

End Function