Resize Array

Dim n As Integer n = 1 ReDim Preserve MyArray(1 To n) MyArray(n) = "StressScenarioReport" n = n + 1 If AssumptionInput.chkStressLeverage.Value = True Then ReDim Preserve MyArray(1 To n) MyArray(n) = "StressScenarioReport_Leverage" n = n + 1 End If ' MyArray now will contain "StressScenarioReport" and "StressScenarioReport_Leverage". If remove "Preserve", this will erase any previous data existing in MyArray