Solved: Function and loop triggered when input hasn't changed

[vanhunk]

Why using a function ?

[vba]Sub M_snb()
On Error Resume Next
MsgBox Sheets(1).Cells.Find("hhh", , xlValues, 1).Address
End Sub[/vba]

Thanks snb/Paul,

I am using it in formulas, see attached spreadsheet.

Regards,
vanhunk