Диалоговое окно выбора файла

[yvcher19]

Добрый день форумчане!

Столкнулся с такой проблемой, необходимо копировать опеределенный диапазон данных с одной книги в другую. Причем книгу с которой будет копирование диапазона нужно выбирать через диалоговое окно выбора файла..

Как делать вызов диалогово окна я знаю. Я скопировать нужный мне диапазон знаю. А как объединить эти 2 задачи в одну не могу понять. Если кто сталкивался помогите пожалуйста!

Пока сделал так, без выбора файла, но это очень неудобно, приходиться постоянно переименовывать исходные файлы:

Workbooks.Open Filename:= _
"С:\Test.xlsm" _
, UpdateLinks:=0, Notify:=False
Application.ScreenUpdating = False
Sheets("Svod").Select
Range("A6:D25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test2").Activate
Sheets("SvodnayaTablica").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Windows("С:\Test.xlsm").Activate
Application.DisplayAlerts = False
ActiveWindow.Close False
Application.DisplayAlerts = True

[IgorGO]

fn = Application.GetOpenFilename
if fn = false then exit sub
Workbooks.Open Filename:= fn, UpdateLinks:=0, Notify:=False

[yvcher19]

Сообщение от IgorGO

Код:

fn = Application.GetOpenFilename
if fn = false then exit sub
Workbooks.Open Filename:= fn, UpdateLinks:=0, Notify:=False

Огромное спасибо!