Public Function FindAndCatch(ByVal Column As String, ByVal ToFind As String, ByVal IndexReturn As Long) As String
    try = Sheets("temporanea").Range(Column & ":" & Column).Find(ToFind, LookIn:=xlValues)
    If Not prova Is Nothing Then
            MsgBox try.offset(0, 0)
    End If
    Set FindAndCatch = "prova"
End Function