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