concatenate text boxes to find combined value and copy paste alternative value into wb

I think the .find method applies to a range not to a sheet, so maybe try changing:

Sheets("Database").find

to

Sheets("Database").cells.find