ファイル選択フォームを出すには？

・ファイルの選択（ファイル名書き出し）
Sub file_open()
'　sunagoさんのサンプルをアレンジ
'　http://homepage.mac.com/sunagoh/excel/ex980801.html
'　アクティブシートに選択したファイル名を貼り付けるように変更。
'　選択ファイルは、１つ以上でＯＫ。

Dim aFile, i

aFile = Application.GetOpenFilename _
("Excelファイル (*.xls), *.xls", , , , True)
If IsArray(aFile) Then
For i = 1 To UBound(aFile)
Range("a" & i) = aFile(i)
' Debug.Print i & ":", aFile(i)
Next i
Else
' Debug.Print aFile '　<--　キャンセルした場合何もしない。
'　Range("a" & i) = aFile(i)
End If

End Sub