Use a variable to increment a variable name

Hello,

Not sure this is possible, but if it is I'm hoping someone here can tell me how.

    Dim fn As String
    i = 1
    For Each Resource In Range("Resources")
        Resource.Value = UCase(Resource.Value)
        fn & i = Resource.Value
        Debug.Print Resource.Value
        i = i + 1
    Next Resource

    Person.Add fn(i)

where fn(i) becomes fn1, fn2, fn3, etc depending on how may first names are in named range Resources

Thank you

You could do something like

   ReDim fn(1 To Range("Resources").Count) As String

    i = 1
    For Each Resource In Range("Resources")
        Resource.Value = UCase(Resource.Value)
        fn(i) = Resource.Value
        Debug.Print Resource.Value, fn(i)
        i = i + 1
    Next Resource