Создание в ячейке всплывающего списка на основании выделяемого диапазона

[AndryGrey]

Столкнулся с проблемой создания в ячейке всплывающего списка на основании выделяемого диапазона.
Предпологается использование двух процедур. Первая процедура GetUserRange() определяет с помощью выделения ячейки, в которых хранится список значений и передает этот список во вторую процедуру VALDAT(Rng), которая на основании этого списка создает всплывающий список в нужной ячейке. Проблема с кодом второй процедуры, при создании всплывающего списка выдается ошибка 1004.

Если Вас не затруднит посмотрите в чем дело.

Sub GetUserRange()
Dim MyRng As String
Dim UserRange As Range
Dim Prompt As String
Dim Title As String
Prompt = "Select a range for the random numbers."
Title = "Select a range"

' Display the Input Box
On Error Resume Next
Set UserRange = Application.InputBox( _
Prompt:=Prompt, _
Title:=Title, _
Default:=ActiveCell.Address, _
Type:=8) 'Range selection
On Error GoTo 0

' Was the Input Box canceled?
If UserRange Is Nothing Then
MsgBox "Canceled."
Else
MyRng = UserRange.Address
End If
Call VALDAT(MyRng)
End Sub


Sub VALDAT(Rng)
Dim s As Integer
s = ActiveCell.Row
With Cells(s, 6).VALIDATION
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=Rng"
End With
End Sub

[IgorGO]

Operator:=xlBetween, Formula1:="=" & Rng

[AndryGrey]

Большое спасибо!