Несоответствие типа с использованием ByRef

Question

Следующий код создает время компиляции сообщение об ошибке "Несоответствие типов":

Private Sub Example 
    JustAdd(Sheet1.ListObjects("Table6")) 
End Sub 

Public Sub JustAdd(ByRef tableN As ListObject) 
    tableN.ListRows.Add 
End Sub 

Также попробовал:

Private Sub Example 
    Dim tmp As ListObject 
    Set tmp = Sheet1.ListObjects("Table6") 
    JustAdd(tmp) 
End Sub 

Public Sub JustAdd(ByRef tableN As ListObject) 
    tableN.ListRows.Add 
End Sub 

Также:

Private Sub Example 
    Dim tmp As ListObject 
    tmp = Sheet1.ListObjects("Table6") 
    JustAdd(tmp) 
End Sub 

Public Sub JustAdd(ByRef tableN As ListObject) 
    tableN.ListRows.Add 
End Sub 

Просто нужно быстро подталкивать в правильном направлении, чтобы получить эту подпрограмму JustAdd

Answer 1

Я попробовал только ваш первый пример, но я считаю, что любой из них должен работать с этой небольшой модификацией.

Call JustAdd(Sheet1.ListObjects("Table6")) 

EDIT¹: ОК, может быть, не третий один.

EDIT²: Более подробная информация по адресу: Calling Sub and Function Procedures (Применимо к: Office 2013. | VBA)