Добрый день.  
Сколько ни искал не смог найти решение следующей проблемы:  
Нужно макросом импортировать текст из файла. При помощи макрорекодера вычислил макрос:  
With ActiveSheet.QueryTables.Add(Connection:= _  
"TEXT;C:\Users\Denis\Desktop\Сверка приходов\СчетФактура00000014246.txt", _  
Destination:=Range("$A$1"))  
Нужно чтобы при выборе макроса, предлагалось выбрать файл самостоятельно, т.е. появлялся диалог выбора файла.  
Помогите пожалуйста, что нужно добавить чтобы все заработало?