Set Rng

[nigelk]

Hi all,

I need to set a range equal to every other row, but don't want to 'hard code' it.

Ie

Set Rng = Range("G3,G5,G7")

as the data changes in size. I can get the size of data by using .End(xlup).

Is it possible to set it automatically?

Thanks,Nigel

 

[CPerdue]

got it...

Sub scratch()
 
    Dim myRangeA As Range
 
    Set myRangeA = Range("$A$1:$A$5,$A$11:$A$15")
 
    icount = 0
    For Each cell In myRangeA
        icount = icount + 1
        cell.Value = icount
    Next cell
 
End Sub

prints what I want. So now reading this, I need to scan Areas 1 & 2...

Thanks much,

Clint