Constants

[Roger]

I have several constants EG:-

Public Const Site1 as String = "Bradford"
Public Const Site2 as String = "Keighley"
Public Const Site3 as String = "Sheffield"
ETC
Instead of a long "If - ElseIf" is there a way to refer to a constant using
a variable EG
The variable entering the routine is called "Ctr" short for counter-
Its value is 2
The code below obviously does not work-
Range("A1") = "Site" & Ctr
Is there a way to write the above line of code that works please!

Many thanks if you can help

 

[jasontferrell]

Maybe you should use an array.

Public site(3) As String
Sub setValues()
site(1) = "Bradford"
site(2) = "Keighley"
site(3) = "Sheffield"
End Sub


Range("A1") = site(Ctr)

 

[Roger]

Jason - thanks - nice idea - Rog