VBA Array map function

Map.bas

Function Map(F As String, ByVal A As Variant) As Variant
' Map function F across 1-Dimensional Array

Dim i As Long

    For i = LBound(A) To UBound(A)
        A(i) = Application.Run(F, A(i))
    Next i
    
    Map = A
    
End Function