Dim r as Range
Set r = Range("C2:D3")
Dim r1 as Range, r2 as Range
Set r1 = r.EntireColumn
Set r2 = r.Columns
Dim r as Range
Set r = Range("C2:D3")
Dim r1 aDim r as Range
Set r = Range("C2:D3")
Dim r1 as Range, r2 as Range
Set r1 = r.EntireColumn
Set r2 = r.Columns
Dim r as Range
Set r = Range("C2:D3")
Dim r1 a