为范围动态设置数据验证时的应用程序定义或对象定义错误

Question

我试图动态地向列中添加数据验证，其中每个单元格下拉列表的值来自另一个工作表。

这是代码

Dim fRange As Range
Dim lRow As Integer
lRow = Sheets("Service_master").Cells(Sheets("Service_master").Rows.count, 1).End(xlUp).Row
Set fRange = Sheets("Service_master").Range("A2:A" & lRow)
Dim dRange As Range
lRow = Sheets("resource_master").Cells(Sheets("resource_master").Rows.count, 1).End(xlUp).Row
Set dRange = Sheets("resource_master").Range("G2:G" & lRow)
With dRange.Validation
    .Delete 'delete previous validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="=Service_master!" & fRange.Address
End With

但是在.Add行中我们指定了公式，触发了错误Application defined or object-defined error

公式为＆＃34; =Service_master!$A$2:$A$6＆＃34;那条线。

在该表中，我希望在该范围内有数据用于下拉列表或resource_master