Excel 2007 VBA ошибка 438

Формулировка задачи:

Сто лет не программировал в Excel, возникла потребность, нашел процедуру в инете, немного модифицировал, пробую запустить, выдает ошибку Object doesn't support this property or method (Error 438) на вызове метода Activate у объекта типа Range, вот у этого объекта cActive.Activate
Почему? метод законный, выбирается и поддерживается через помощника...ничего не понимаю... подозреваю, что это следствие моего полного ламерства и я не вижу чего-то лежащего на поверхности...просьба ткнуть носом

Public Sub GotoFixedCell(vValue As Variant, sSheetName As String)
  
  Dim objWSheet As Worksheet
  Dim cActive As Range
  Dim cStart As Range
  Dim cForFind As Range
  Dim i As Integer

  On Error GoTo ErrorÍandler

    Set objWSheet = ActiveWorkbook.Worksheets.Item(sSheetName)
    Set cForFind = objWSheet.Cells 

    Set cActive = cForFind.Find( _
            What:=vValue, _
            After:=ActiveCell, _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)

    Set cStart = cActive
    
    While Not cActive Is Nothing

            Set cActive = cForFind.FindNext(cActive)
            If cActive.Address = cStart.Address Then
               cActive.Activate
               Exit Sub
            End If

    Wend

  Exit Sub

ErrorHandler:
    MsgBox Err.Descration, vbExclamation, "Error #" & Err.Number
    
End Sub

Решение задачи: «Excel 2007 VBA ошибка 438»

textual
                            Листинг программы 
                        
                            cActive.Parent.Activate ' <-- Активировать лист
cActive.Activate        ' <-- А теперь и диапазон