Set Range format

[Silent2k]

I have the following code but need to edit the set range to do,: L, M, N, O, P, Q, R & S. What is the proper format to put that in the~
set rng=Range(?

Dim I As Long
Dim rng As Range
For I = 1 To 22000
Set rng = Range("G" & I)
If rng.Value = True Then
rng.Offset(0, 1).Resize(1, 2).Copy
rng.Offset(0, -3).PasteSpecial Paste:=xlValues
End If
Next I

 

[Andrew Poulsom]

Won't you be overwriting what you did earlier?

rng.Offset(0, -3).PasteSpecial Paste:=xlValues

You can use the Cells property, which expects an Integer as the column argument (instead of a letter). Example:

For r = 1 To 5
   For c = 12 to 19
      MsgBox Cells(r, c).Value
   Next c
Next r

 

[Silent2k]

Sorry

The Range.offset is not (0,-3) in the new one it will be (0,-9)

 

[Andrew Poulsom]

Re: Sorry

The Range.offset is not (0,-3) in the new one it will be (0,-9)

So have you been able to incorporate what I wrote?