Why using a function ?

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