Open Mulitple Files

[Crocdundee]

I wish to open multiple files to a worksheet, however it must append, so
I have a Macro to open the first file from a folder and this is the code

Sub Macro12()
'
' Macro12 Macro
'
' Keyboard Shortcut: Ctrl+r
'
ChDir "C:\Users\Grah\Downloads"
Workbooks.Open Filename:="C:\Users\Grah\Downloads\neural.asp.xls"

End Sub

it works fine however I would be like to have a input box to ask for the next file name, or better still just append each and every file to the first empty cell in A
However the file name are different but they all start with Neural.

The folder is c:\Grah\users\downloads\
any help here is naturally appreciated

Regards
Graham