Use a variable to increment a variable name

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