Search Function VBA

Hi.
The link referred to by 'sintek' includes one of my contributions.
It contains a minor bug, simply delete the line highlighted by the de-bugger (the sheet referred to does not exist)it will then run.
Attached another similar approach based upon similar lines, it auto-generates unique id and checks existence of new entrant.
Start by clearing the form, the rest should be intuitive.
torachan.