无法引用VBA中的命名范围 – 对象_global的方法范围失败

我有两个macros，它们与命名的区别差异是相同的。 一些命名的范围，我已经手动定义或通过VBA定义。 第一个macros（CleanProcesses）工作正常，但第二个带来了一个错误，当调整代码为“ Set rng = ”时，“应用程序定义或对象定义的错误”或“对象_global的方法范围失败” 工作表（“概览”）。范围（“ReportingDetail”）“ 。 代码如下：

Sub CleanProcesses() Dim Processrng As Range Set Processrng = ThisWorkbook.Names("Process").RefersToRange If Range("ProcessesRowNum").Value <= 1 Then Exit Sub End If Dim I Range(Processrng, Range(Processrng).End(xlDown)).Name = "ProcessesRange" ProcessesRangeIRow = Worksheets("Overview").Range("ProcessesRange").Count - 2 For I = 1 To ProcessesRangeIRow Range(Processrng).Activate ActiveCell.Offset(2, 0).Select targetrow = ActiveCell.Row Range(targetrow & ":" & targetrow).Select Selection.Delete Shift:=xlUp Range("A" & targetrow - 1).Select Next I End Sub Sub CleanReporting() Dim Reportingrng As Range ####**Set Reportingrng = ThisWorkbook.Names("ReportingDetail").RefersToRange 'Set Reportingrng = Worksheets("Overview").Range("ReportingDetail")**#### If Range("ReportingRowNum").Value <= 1 Then Exit Sub End If Dim I Range(Reportingrng, Range(Reportingrng).End(xlDown)).Name = "ReportingRange" ReportingRangeIRow = Worksheets("Overview").Range("ReportingRange").Count - 2 For I = 1 To ReportingRangeIRow Range(Reportingrng).Activate ActiveCell.Offset(2, 0).Select targetrow = ActiveCell.Row Range(targetrow & ":" & targetrow).Select Selection.Delete Shift:=xlUp Range("A" & targetrow - 1).Select Next I End Sub 

我已经把哈希###在代码行我得到的错误。 我似乎无法弄清楚我能如何克服这个问题？ 任何帮助将非常感激。 提前致谢。