传递Range参数时出现错误424

我是VBA的新手，而且这个非常简单的代码有一个错误：

Sub sub1() Dim myCell As Range Set myCell = Sheet1.Cells(2, 2) sub2 (myCell) '<<<<------- Error 424 End Sub Sub sub2(x As Range) 'not doing anything yet End Sub 

从sub1调用sub2时收到Error 424 。 在我看来，这应该工作，因为myCell是一个范围…任何想法？

Answer 1

Ty删除删除括号，或者添加一个Call即：

 Sub Opt1() Dim myCell As Range Set myCell = Sheet1.Cells(2, 2) sub2 myCell End Sub Sub sub2(x As Range) MsgBox x.Address End Sub 

要么

 Sub Opt2() Dim myCell As Range Set myCell = Sheet1.Cells(2, 2) Call sub2(myCell) End Sub Sub sub2(x As Range) MsgBox x.Address End Sub