Return to Question

First off, this is the 3rd (and probably last) review of the project in question. You can find the previous question here.

N.B. if you have any advice relating purely to the standard methods (and not, for instance, how they're used in the main project), I have a separate question for that

First off, this is the 3rd (and probably last) review of the project in question. You can find the previous question here.

N.B. if you have any advice relating purely to the standard methods (and not, for instance, how they're used in the main project), I have a separate question for that

InsertAscentricLifeCoColumn

Public Sub InsertAscentricLifeCoColumn(ByRef arrAscentric As Variant)

    '/======================================================================================================================================================
    '/  Author:  Zak Armstrong
    '/  Email:   [email protected]
    '/  Date:    17/August/2015
    '/
    '/  Description:    Inserts a column in the ascentric data array called "Life Co" and filled with "Ascentric" for easy identification later
    '/======================================================================================================================================================
    Dim i As Long
    Dim j As Long
    Dim k As Long
    
    Dim LB1 As Long, UB1 As Long
    Dim LB2 As Long, UB2 As Long
    '/======================================================================================================================================================
    
    AssignArrayBounds arrAscentric, LB1, UB1, LB2, UB2

    ReDim Preserve arrAscentric(LB1 To UB1, LB2 To UB2 + 1)
        
        arrAscentric(LB1 + 1, UB2 + 1) = "Life Co"
        
            For i = LB1 + 2 To UB1
                arrAscentric(i, UB2 + 1) = "Ascentric"
            Next i
    
End Sub