Array Problem?

[Molden]

Hi,

Could someone help me please? I'm trying to select a cell, run some code then run the same code from a different cell. I'm guessing an array is the best approach but i'm not brilliant at them. This is what i've got so far:

vRange = Array(A3, D3, H3)

For i = LBound(vRange) To UBound(vRange)
vRange.select
''' call my code
Next i

Could some one help?

Thanks in advance

 

[VoG]

Perhaps like this

vRange = Array("A3", "D3", "H3")

For i = LBound(vRange) To UBound(vRange)
    Range(vRange(i)).Select
''' call my code
Next i

 

[Molden]

Thanks fir the reply. Just had to define the sheet name but barring that it worked great.

Much appriciated