エクセルVBA - オブジェクト変数Iが無効にされますしている</p> </blockquote> <p>を設定していない - 私は</p> <blockquote> <p>ランタイムエラー91の原因となっている以下のコードを持って「実行時エラー91」

Question

の原因となるエラーを見つけることができません。各ワークブック、ワークシート、および変数を削除できますが、エラーは削除されません。

Dim r As Long, c As Long 
    Dim snowq As Workbook, CAQual As Workbook, qsum As Worksheet, CAqsum As Worksheet 
    For r = 2 To 8 
     For c = 2 To 4 
      combinedReports.Worksheets("combinedQualities").Cells(r, c).Value = _ 
       snowq.Worksheets("qsum").Cells(r, c).Value + CAQual.Worksheets("CAqsum").Cells(r, c).Value 
     Next 
    Next 

最初のワークブックとワークシートは、コード内ではなく、同じモジュール内にあることに注意してください。

ご協力いただければ幸いです。

EDIT：

これは実際のワークブックとワークシート（S）を設定含むモジュールの上面である：

'Create new workbook 
Dim combinedReports As Workbook, combinedCsats As Worksheet, combinedQualities As Worksheet, combinedTickets As Worksheet 
Set combinedReports = Workbooks.Add 
Sheets("Sheet1").name = "Combined CSAT's" 
Set combinedCsats = combinedReports.Sheets("Combined CSAT's") 
Sheets.Add After:=ActiveSheet 
Sheets("Sheet2").name = "Combined Qualities" 
Set combinedQualities = combinedReports.Sheets("Combined Qualities") 
Sheets.Add After:=ActiveSheet 
Sheets("Sheet3").name = "Combined Tickets" 
Set combinedTickets = combinedReports.Sheets("Combined Tickets") 

Answer 1

コードが故障で停止するFor r = 2 to 8ループの前にこのコードを挿入オブジェクト。

Debug.Print combinedReports.Name 
Debug.Print combinedReports.Worksheets("combinedQualities").Name 
Debug.Print snowq.Name 
Debug.Print snowq.Worksheets("qsum").Name 
Debug.Print CAQual.Name 
Debug.Print CAQual.Worksheets("CAqsum").Name