Excel VBA：変数シート名からのデータの転送、実行時エラー '91'

Question

私がしたいのは、sheetという名前の変数から特定のシート（ "SUMMARY"）にデータを転送することです。次に、変数シートのセルを検討したいと思います。したがって、セル> 0の場合は、行をSUMMARYにコピーします。しかし、私は 'オブジェクト変数またはWithブロック変数が設定されていません'エラーが発生しています。私は間違って何をしていますか？

 Sub transfer() 

     Dim ws As String 
     Dim n As Integer 
     Dim i As Long 

     Dim c As Range 

     n = Sheets("Start").Range("c24").Value + 3 

     If n > 0 Then 
      For i = 3 To n 

       Dim desrow As Integer 
       desrow = i - 1 
       Dim rng As Range 

       rng = Range("AA11:AA40") 

        For Each c In rng 
         If c = 12 Then 

          Sheets("OFFLIMITS").Cells(desrow, 1).Value = Sheets(i).Range("C3") 

         End If 
        Next c 
      Next i 

     End If 

     End Sub 

Answer 1

あなたはSetオブジェクトなければならないので、あなたが言う必要があります。

Set rng = Range("AA11:AA40")