verwijzen naar sub met A(n) lukt niet

[rikkert97]

Ik schrijf een programmaatje waarmee ik verschillende functies heb die allemaal beginnen met A en dan cijfer, dus A(n). nou probeer ik dit op te roepen, alleen het lukt niet, dit is het stukje code waarmee ik het probeer op te roepen.

Sub uitvoer()
    Dim breedte, aantal, cell, n As Integer
    Dim A$(4)
    breedte = Cells(1, 1).Value
    aantal = Cells(2, 1).Value
    cell = 3
    cell2 = 1
    n = Right(Cells(cell, 1), 1)
    Do While aantal > 0
        If Cells(cell, 1).Value = A(n) Then
            A (n)
            aantal = aantal - 1
            cell = cell + 1
            cell2 = cell2 + 1
        End If
    Loop
End Sub

Bij voorbaat dank

 

[snb]

n=4
A(n) <> "A4"

 

[rikkert97]

werkt dit ook als hij n uit een cel moet halen?? want ik roep verschillende functies op door steeds een andere n te gebruiken

 

[snb]

Ik wilde hiermee aangeven dat je een denkfout maakt en wat je doet gewoon niet kan.