セル範囲の取得

■Rangeプロパティを使用する場合
　書式：Range( 先頭セル, 終端セル )
（例1）Range(Range("A1"),Range("D3"))
（例2）Range(Cells(1,1),Cells(4,4))
■使用例

Sub sample()
    Dim targetRange As Range    
    Set targetRange = Range(Range("A1"), Range("D4"))
    '以下の書き方でも同じ結果が得らえる
    Set targetRange = Range(Cells(1, 1), Cells(4, 4))
    targetRange.Interior.ColorIndex = 6
End Sub