Try this. But, why select??? What are you trying to do

Sub selectcells()
For i = 6 To 25 Step 8
ms = ms & ",g" & i
Next i
ms = Right(ms, Len(ms) - 1)
Range("" & ms & "").Select
'Range("" & ms & "").value=222
End Sub

--
Don Guillett
SalesAid Software

"Alex" wrote in message
oups.com...
Dear all,

I have a big table containing a lot of data in my worksheet. Within a
particular column, I want to select cells whose row numbers form an
arithmetic progression with a common difference 8(e.g. G6, G14,
G22, ...). At the moment, I can only perform this task by selecting
the cells individually while pressing "Ctrl", however, due to the
large number of data in the table, this work is very tedious.

Does anyone know if there is an automatic way to select these cells?

Thank you.

Best wishes,