名前付きシートを使用した範囲の設定

Question

フリーズしています。私は公に宣言された範囲（dataIrradianceRangeとdataTempRange）を設定しようとしていますが、オブジェクトのエラーのメソッドの範囲を取得し続けます。誰が私が間違っているのか教えてもらえますか？

Public Sub getData() 

'for each loop in data book to find right columns for sites 
'each site has two columns in the data book...irradiance and amb temp 
For j = 2 To siteCount * 2 Step 2 
    If dataSheet.Cells(1, j).Value = siteNameArray(i) Then 

     Set dataIrradianceRange = dataSheet.Range(Cells(5, j), Cells(lastRow, j)) 
     Set dataTempRange = dataSheet.Range(Cells(5, j + 1), Cells(lastRow, j + 1)) 
     Exit For 
    End If 
Next j 

End Sub 

Answer 1

だから、これは動作しますが、それは私が試したものをかけない理由を私は理解していないフルレンジの資格

With dataSheet 
     Set dataIrradianceRange = .Range(.Cells(5, j), .Cells(lastRow, j)) 
     Set dataTempRange = .Range(.Cells(5, j + 1), .Cells(lastRow, j + 1) 
    End With