For Each Cell In Range

Hi all. Just one question. Is it possible to use "for each cell in range" if range is not together? Example Cell A1, A5, A10 Etc..
If so , how do i set the range for these cells? i need to check if these cells is empty, if not empty cell.value = 1. Cells is in offset of (0,5) Thanks very much!!

Originally Posted by rename

Hi all. Just one question. Is it possible to use "for each cell in range" if range is not together? Example Cell A1, A5, A10 Etc..
If so , how do i set the range for these cells? i need to check if these cells is empty, if not empty cell.value = 1. Cells is in offset of (0,5) Thanks very much!!

You should put the range into array and after that you loop throught that array.
Try it.

you mean named range? But i've many rows to check which means i'll have to add each row in a named range?

maybe something like this

Dim r As Range
For Each r In Range("A1,A5,A10,A15,A20")
    If Not IsEmpty(r) Then r.Value = 1
Next r

or

On Error Resume Next
Range("A1,A5,A10,A15,A20").SpecialCells(xlCellTypeConstants).Value = 1
On Error GoTo 0

or

Dim i As Long
For i = 5 To 20 Step 5
    If Not IsEmpty(Cells(i, 1)) Then Cells(i, 1) = 1
Next i