Formula to select every third cell in a very long column of data?
hi,
formulas return values from other cells but they cannot perform actions like
select another cell.
Multiple selects are possible but you can run into problems depending with
what you wish to do.
this macro will highlight every third cell
edit to fit your data.
Sub everythird()
Dim r As Range
Dim rd As Range
Set r = Range("A2")
Do While Not IsEmpty(r)
Set rd = r.Offset(3, 0)
r.Interior.ColorIndex = 40
Set r = rd
Loop
End Sub
regards
FSt1
"jme951" wrote:
Is there a formula or an easy way to select/highlight every third cell in a
very long column of data?
--
Thanks,
Jamie
|