Buscar un valor en excel y que me diga si lo encon

Public Function BuscaValor(NombreHoja As String, ValorBuscado As String) As Integer
Dim Hojadepartida As String
Dim celda As Range
On Error Resume Next
'Application.ScreenUpdating = False
Hojadepartida = ActiveSheet.Name
Sheets(NombreHoja).Select
Set celda = Cells.Find(What:=ValorBuscado, LookAt:=xlWhole)
If Not celda Is Nothing Then
        BuscaValor = 1
        'celda.Select
Else
        BuscaValor = 0
End If
Sheets(Hojadepartida).Select
End Function
Sub prueba()
MsgBox BuscaValor("hoja1", "1")
End Sub