Dynamic declarations

[Don Wells]

What I am attempting in the following code is both obvious and disallowed. Does anyone know of a workaround?

Code: Select all

Public Sub test()
Const mv = "VAR"
Dim ctr As Long

  For ctr = 1 To 4
    dim mv & ctr as Long
  Next ctr

End Sub

[HansV]

I'd use an array:

Code: Select all

Dim lngVar(1 To 4) As Long
Dim i As Integer

lngVar(1) = 37
lngVar(2) = -273
lngVar(3) = 2010
lngVar(4) = 42

For i = 1 To 4
    Debug.Print lngVar(i)
Next i