Передача Рабочего листа к подпрограмме

У меня есть следующий код:

Private Sub SortWorksheet(ByVal sheet As Worksheet)
    Dim sStartColumn
    Dim iTopRow
    Dim sEndColumn
    Dim iBottomRow
    Dim Rng As Range
    Dim sRange1 As String
    .
    .
    .

и я вызываю функцию как так:

SortWorksheet (DestSheet)

Я надеваю ошибку периода выполнения вышеупомянутая строка, говоря, что "Объект не поддерживает это свойство или метод"

DestSheet является переменной документа.

Почему этот код не работает?