Adding to cell ranges

[Mike]

Have this so far:

Dim CellRng as String
CellRng = "C4"

PercentVal = Sheets("Sheet1").Range(CellRng).Value

***Now, how can I add 1 row to CellRng. It's in loop, and I want it to get
the value for C5 next time.

 

[Gary''s Student]

I am guessing you want to go from "C4" to "C5" to "C6", etc.
change
PercentVal = Sheets("Sheet1").Range(CellRng).Value
into
i = 3
j = 4
..
..
..
PercentVal = Sheets("Sheet1").Cells(j,i).Value

and then increment j in the loop to move downward.

An alternative is to use OFFSET()

 

[Gary''s Student]

Another alternative is:
PercentVal = Sheets("Sheet1").Range("C" & j).Value