hardcoded values in a loop

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

I want to have something like this in an Excel macro but I don't know how to
write it in VB:

For each val in ("value1", "value2", "value3")
----statements
Next

Does anyone know how to do this?
 
One way:

Dim myVar As Variant
For Each myVar In Array("1", "2", "asdg")
MsgBox myVar
Next myVar

Another way:

dim myVals as Variant
dim iCtr as long
myvals = array("value1", "value2", "value3")

for ictr = lbound(myvals) to ubound(myvals)
msgbox myvals(ictr)
next ictr
 
Back
Top