Multidimensional array into a multi-column listbox, then paste into columns in a worksheet

I have two columns of data, one is a number, and one is a name on one worksheet, 'Search'.

I have a similar arrangement of data on another sheet in the same workbook called 'Database'.

The difference between the two is that in Database the numbers are present but with other characters around them (letters etc.).

I've created a macro which, using the Cells.Find function locates possible matches for the number and places them, and the cell next to them ('Name'), into an array.

I then need a listbox of these possible matches to pop up (with the name next to it), and for the user to select the 'best' match from the listbox. This should then paste both the number and the name into two columns on the 'Search' spreadsheet.

I've tried to attach an example, with my macro to this post but it hasn't worked (it just says I need to login). Please help!

Here is a link to the workbook

https://www.dropbox.com/s/1tsqn37hqkcje8i/Mockup.xlsm

Most members won't download files from other sites, so you should upload your file directly to the forum. Here's how to do it:

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.