Passing values from one variable to another 1

[adgesap]

I playing with some code where I want to set up a list of values, that can then be picked up in a loop. The loop works fine but what's being written to the spreadsheet is wrong.
The code:

Sub Macro3()
'
    Dim Franchise1 As String
    Dim Franchise2 As String
    Dim Franchise3 As String
    Franchise1 = "Audi"
    Franchise2 = "BMW"
    Franchise3 = "Ford"
    Dim Franchise As String
    Dim Number As Integer
    Number = 1
Do
    Dim NumberString As String
    NumberString = Number
    Franchise = "Franchise" + NumberString
    Range("A" + NumberString).Select
    ActiveCell.FormulaR1C1 = Franchise
    Number = Number + 1
Loop Until Number = 4
End Sub

What I was expecting was the car names to appear, but what I'm getting is "Franchise1" etc. Is there a way for the code to recognize that when "Franchise" = Franchise1 it should print "Audi"?

 

[Golom]

Try arrays

Sub Macro3()
    Dim NumberString As String
    Dim FranchiseA() As String
    Dim Number       As Integer
    Redim FranchiseA(2)
    FranchiseA(0) = "Audi"
    FranchiseA(1) = "BMW"
    FranchiseA(2) = "Ford"
    
    For Number = 0 to Ubound(FranchiseA)
        NumberString = Number + 1
        Range("A" + NumberString).Select
        ActiveCell.FormulaR1C1 = FranchiseA(Number)
    Next
End Sub

 

[SkipVought]

Sub Macro3()
'
    Dim Franchise(1 To 3) As String
    Dim Number As Integer
    Franchise(1) = "Audi"
    Franchise(2) = "BMW"
    Franchise(3) = "Ford"
    
    For Number = 1 To UBound(Franchise)
        Range("A" & Number).Value = Franchise(Number)
    Next
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}