ファイルが開いていないか、シートの参照がうまくできていないのでは？
という推測で　以下のようにコードを変えたらいかがでしょう。

↓のページに追記していますので参照してください。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_listbox.html

変更する部分の一部分を書き出しています。
最初に別ファイルを開くために、Openします。
検索するデータは　ファイル名 kensaku.xlsm　、シート名 meibo　にあるとしています。
Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim myData, myData2()
    Dim i As Long, j As Long
'----ここから
    Dim myBook As Workbook
    Set myBook = Workbooks.Open("c:\users\ファイルを保存している場所\kensaku.xlsm")
    With myBook.Worksheets("meibo")
' ----ここまで

開いたファイルのデータのあるシートを指定します。

Private Sub CommandButton1_Click()
    Dim lastRow As Long
    Dim myData, myData2(), myno
    Dim i As Long, j As Long, cn As Long
'----ここから    
    Dim myBook As Workbook
    Set myBook = Workbooks("kensaku.xlsm")
    With myBook.Worksheets("meibo")
' ----ここまで

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'----ここから  
    Dim myBook As Workbook
    Set myBook = Workbooks("kensaku.xlsm")
    With myBook.Worksheets("meibo")
' ----ここまで

以上です。