Question : VBA Initialise/Initialize String/Number Array (not variant)
Answered by : plamen-grozdanov
Sub UseStringArray() Dim sample() As String sample = StringArray("dog", "cat", "horse")
End Sub
Function StringArray(ParamArray ArgList()) ReDim tempArray(UBound(ArgList)) As String For i = 0 To UBound(ArgList) tempArray(i) = ArgList(i) Next StringArray = tempArray
End Function
Source : https://stackoverflow.com/questions/19369132/declare-and-initialize-string-array-in-vba?answertab=active#tab-top | Last Update : Tue, 14 Sep 21