написать макрос

[DarkHouse]

день добрый!
нужна помощь...
нужно написать макрос что бы при нажатии на кнопку(выведенную на рабочий лист excel) он заполнял ячейки шаблона из другого файла....
как это сделать....
получается копировать только одну ячейку, и то выдается #ССЫЛКА...
помогите пожалуйста...
пример ячеек, какие необходимо перенести в шаблон отмечены в файле.
имя файла неизменно, и нужные ячейки тоже неизменны.
код такой:

Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String

' Make sure the file exists
If Dir(p & Filename2) = "" Then
GetValue = "File Not Found"
Exit Function
End If

' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)

' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub first()
Dim p as String
Dim s as String
Dim f as String


p = "C:\spravka\"
s = "Sheet1"
f = "week.xls"
a = "E9; J9; N9"

Application.ScreenUpdating = False
For r = 6 To 8
For c = 4 To 4
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
End Sub

при выполнении кода ячейки заполняются значением ССЫЛКА...
как это исправить....

[Казанский]

Не работает проверка на существование файла:

' Make sure the file exists
If Dir(p & Filename2) = "" Then

Должно быть

' Make sure the file exists
If Dir(path & file) = "" Then

Поставьте первой строкой модуля Option Explicit, пройдите код по шагам (F8), смотрите в окно Locals, чтобы понять, все ли происходит так, как Вы ожидаете.