一个excel vba代码老有错误，请大侠指点，多谢
一个函数：
Private Sub CalCol_AJ(hSrcFile As Workbook)

Dim rSWRange As Range
With Workbooks(1).Worksheets(1)
rSWRange = .Range("C6:C18")
End With

end sub
可每次运行到红色行时都提示：
总提示：运行时错误'91' 对象变量或with块变量未设置。

我在红色行处设断点，然后查看Workbooks(1).Worksheets(1)变量，是可以正常看到该变量值是我希望定位的sheet页的。但是为何访问：.Range()就报错呢？哪位大侠解释一下吧，多谢多谢。

[解决办法]

Set rSWRange = .Range("C6:C18")