Differences

This shows you the differences between two versions of the page.

--- microsoft_excel:macro_full_example_program [2019/12/13 12:02] – created peter
+++ microsoft_excel:macro_full_example_program [2021/08/04 13:59] (current) – removed peter
@@ Line 1: / Line 1: @@
-====== Microsoft Excel - Macro Full Example Program ======
-<code excel>
-' Options
-' Option Explicit forces you to declare all your variables.
-Option Explicit
-' Makes all "text comparisons" case insensitive
-Option Compare Text
-'******************************************************************************
-' Window API Declarations
-' These Declares MUST appear at the top of the code module, above and before any VBA procedures.
-'Const HWND_BOTTOM = 1
-Const SWP_NOSIZE = &H1
-Const SWP_NOMOVE = &H2
-Const SWP_NOACTIVATE = &H10
-Const SWP_SHOWWINDOW = &H40
-Public Const HWND_TOPMOST = -1
-Public Const HWND_NOTOPMOST = -2
-Public Const HWND_TOP = 0
-Public Const HWND_BOTTOM = 1
-' http://www.tek-tips.com/faqs.cfm?fid=4699
-'
-' Message boxes are always modal, which means that the underlying application (e.g. Excel) waits for a response from
-' the User and does not allow any other interaction until one is given.
-' By default they are application modal (they remain in front of all other windows belonging to the owning application
-' but have no impact on other applications), but they may also be system modal (they remain in front of ALL other
-' windows although they have no non-visual impact on applications other than the owning one).
-'
-' Use the Message Box facility directly, via the Windows API, instead of via the VBA interface.
-' Using it is pretty much the same as using MsgBox, except that you have the opportunity to set some parameter values
-' which are defaulted in the VBA interface, in particular the message box, although technically still modal, can be
-' attached to any window, or none.  If you do not attach it to your window, it will not restrict your User's interaction
-' with the application.
-Private Declare Function MessageBox _
-        Lib "user32" Alias "MessageBoxA" _
-           (ByVal hwnd As Long, _
-            ByVal lpText As String, _
-            ByVal lpCaption As String, _
-            ByVal wType As Long) _
-        As Long
-' Used to have XL be on top of all other windows.
-#If Win64 Then
-Public Declare PtrSafe Function SetWindowPos _
-  Lib "user32" ( _
-  ByVal hwnd As LongPtr, _
-  ByVal hwndInsertAfter As LongPtr, _
-  ByVal x As Long, _
-  ByVal y As Long, _
-  ByVal cx As Long, _
-  ByVal cy As Long, _
-  ByVal wFlags As Long) _
-  As Long
-#Else
-Public Declare Function SetWindowPos _
-  Lib "user32" ( _
-  ByVal hwnd As Long, _
-  ByVal hwndInsertAfter As Long, _
-  ByVal x As Long, _
-  ByVal y As Long, _
-  ByVal cx As Long, _
-  ByVal cy As Long, _
-  ByVal wFlags As Long) _
-  As Long
-#End If
-'******************************************************************************
-' Some public variables.
-Public wb_name As String                       ' Workbook Name
-Public ctrl_disable_auto_calcs_before_subroutine As Boolean
-Public ctrl_reenable_auto_calcs_after_subroutine As Boolean
-Public ctrl_ask_before_running_subroutine As Boolean
-Public ctrl_show_dashboard_after_subroutine As Boolean
-Public ctrl_close_erroneous_files As Boolean
-Public ctrl_display_sheet_adding_error As Boolean
-Public ctrl_use_system_modal_messages As Boolean
-Public ctrl_clear_formatting_as_well As Boolean
-Public ctrl_processing_type As Long
-Sub ShowXLOnTop(ByVal OnTop As Boolean)
-    Dim xStype As Long
-#If Win64 Then
-    Dim xHwnd As LongPtr
-#Else
-    Dim xHwnd As Long
-#End If
-    If OnTop Then
-        xStype = HWND_TOPMOST
-    Else
-        xStype = HWND_NOTOPMOST
-    End If
-    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
-End Sub
-' Sets that XL is the top window of all applications.
-Sub SetXLOnTop()
-    ShowXLOnTop True
-End Sub
-' Sets that XL is not necessarily the top windows of all applications.
-' If this were not run at some stage then no other application, such as mail, would be able to be seen.
-Sub SetXLNormal()
-    ShowXLOnTop False
-End Sub
-' Scrolls the worksheet to the specific range.
-' For instance ScrollTo "SHEETNAME1", "A1"
-Sub ScrollTo(ws As String, rng As String)
-    Application.GoTo Worksheets(ws).Range(rng), True
-    Worksheets(ws).Range(rng).Select
-End Sub
-' Removes AutoFilter if one exists.
-Sub TurnFilterOffAllSheets()
-    Dim ws As Worksheet
-    For Each ws In ActiveWorkbook.Worksheets
-        With ws
-            .AutoFilterMode = False
-        End With
-    Next ws
-End Sub
-' Delete all unused blank rows and columns in the sheet.
-' Note: This code may not work correctly if the worksheet contains merged cells.
-Sub DeleteUnusedOnSheet(ws As String)
-    Dim myLastRow As Long
-    Dim myLastCol As Long
-    Dim wks As Worksheet
-    With Worksheets(ws)
-        myLastRow = 0
-        myLastCol = 0
-        On Error Resume Next
-        myLastRow = _
-            .Cells.Find("*", after:=.Cells(1), _
-            LookIn:=xlFormulas, lookat:=xlWhole, _
-            searchdirection:=xlPrevious, _
-            searchorder:=xlByRows).Row
-        myLastCol = _
-            .Cells.Find("*", after:=.Cells(1), _
-            LookIn:=xlFormulas, lookat:=xlWhole, _
-            searchdirection:=xlPrevious, _
-            searchorder:=xlByColumns).Column
-        On Error GoTo 0
-        If myLastRow * myLastCol = 0 Then
-            .Columns.Delete
-        Else
-            .Range(.Cells(myLastRow + 1, 1), _
-            .Cells(.Rows.Count, 1)).EntireRow.Delete
-            .Range(.Cells(1, myLastCol + 1), _
-            .Cells(1, .Columns.Count)).EntireColumn.Delete
-        End If
-    End With
-End Sub
-' Displays a message to the user, optionally adding in how long the process ran and the queryname.
-' Depending on the Developer Control settings it will display a System modal message.
-Function Message(msg As String, Optional elapsedtime As Single, Optional queryname As String)
-    Dim msg_to_show As String
-    msg_to_show = msg
-    If Not IsMissing(elapsedtime) And elapsedtime > 0 Then
-        If msg_to_show <> "" Then
-            msg_to_show = msg_to_show & vbCrLf & vbCrLf
-        End If
-        If Not IsMissing(queryname) Then
-            msg_to_show = msg_to_show & "The query """ & queryname & """ took " & elapsedtime _
-                    & " seconds to run."
-        Else
-            msg_to_show = msg_to_show & "The query took " & elapsedtime & " seconds to run."
-        End If
-    End If
-    If ctrl_use_system_modal_messages = True Then
-        If Not IsMissing(queryname) Then
-            MessageBox &H0, msg_to_show, wb_name & "-" & queryname, vbSystemModal
-        Else
-            MessageBox &H0, msg_to_show, wb_name, vbSystemModal
-        End If
-    Else
-        MsgBox msg_to_show
-    End If
-End Function
-' Initializes global variables.
-' These variables are set within the "Developer Control" sheet, and allow overrides of specific functionality within other subroutines.
-Sub Z00000_Init()
-    ' Set a shortcut to the workbook.
-    wb_name = ThisWorkbook.name
-    ' Set public variables from the Developer Control Sheet.
-    ctrl_disable_auto_calcs_before_subroutine = Workbooks(wb_name).Sheets("Developer Control").Range("H11")
-    ctrl_reenable_auto_calcs_after_subroutine = Workbooks(wb_name).Sheets("Developer Control").Range("H13")
-    ctrl_ask_before_running_subroutine = Workbooks(wb_name).Sheets("Developer Control").Range("H15")
-    ctrl_show_dashboard_after_subroutine = Workbooks(wb_name).Sheets("Developer Control").Range("H19")
-    ctrl_close_erroneous_files = Workbooks(wb_name).Sheets("Developer Control").Range("H21")
-    ctrl_display_sheet_adding_error = Workbooks(wb_name).Sheets("Developer Control").Range("H23")
-    ctrl_use_system_modal_messages = Workbooks(wb_name).Sheets("Developer Control").Range("H25")
-    ctrl_clear_formatting_as_well = Workbooks(wb_name).Sheets("Developer Control").Range("H27")
-    ctrl_processing_type = Workbooks(wb_name).Sheets("Developer Control").Range("H30")
-End Sub
-' Runs whichever subroutine name is passed to it.
-' This is the 'master' controlling routine, which also times how long other routines take and displays messages.
-Sub Z99999_Run_Subroutine(strQueryName As String, Optional strDescription As String = "")
-    Dim sngStart As Single
-    Dim sngEnd As Single
-    Dim sngElapsed As Single
-    ' Control to prevent user from overwriting the template.
-    If ThisWorkbook.name Like "* Template.xlsm" Then
-        MsgBox "This workbook is the template, you must not make changes to it." & vbCrLf & vbCrLf & "You need to save as a new workbook name before running any macros."
-        Exit Sub
-    End If
-    ' Get start time.
-    sngStart = Timer
-    ' Initializes global variables.
-    Call Z00000_Init
-    ' To speed up processing.
-    If ctrl_disable_auto_calcs_before_subroutine Then
-        With Application
-            .Calculation = xlCalculationManual
-            .EnableEvents = False
-            .ScreenUpdating = False
-        End With
-    End If
-    ' Turn filters off on all sheets.
-    Call TurnFilterOffAllSheets
-    ' Update StatusBar message.
-    If strDescription = "" Then
-        Application.StatusBar = "Running " & strQueryName
-    Else
-        Application.StatusBar = "Running " & strDescription
-    End If
-    ' Run query.
-    'DoCmd.OpenQuery strQueryName, acNormal
-    'Call strQueryName
-    Application.Run strQueryName
-    ' Re-enable automatic calculations.
-    If ctrl_reenable_auto_calcs_after_subroutine Then
-        With Application
-            .Calculation = xlCalculationAutomatic
-            .EnableEvents = True
-            .ScreenUpdating = True
-        End With
-    End If
-    ' Activate the dashboard.
-    If ctrl_show_dashboard_after_subroutine Then
-        Workbooks(wb_name).Sheets("Dashboard").Activate
-    End If
-    ' Display how long the subroutine ran for.
-    sngEnd = Timer                                 ' Get end time.
-    sngElapsed = Format(sngEnd - sngStart, "Fixed") ' Elapsed time.
-    ' Make excel top most to bring it to the top of other applications.
-    SetXLOnTop
-    ' Display message to user.
-    If strDescription = "" Then
-        Message "", sngElapsed, strQueryName
-        Application.StatusBar = "Finished " & strQueryName
-    Else
-        Message "", sngElapsed, strDescription
-        Application.StatusBar = "Finished " & strDescription
-    End If
-    ' Make excel not top most to allow other applications to go on top of it.
-    SetXLNormal
-End Sub
-' Runs the M10000_Clear_All subroutine.
-' Clears all sheets, but leaves the forumulas which are in the 2nd row on most sheets.
-Sub Run_M10000_Clear_All()
-    Call Z99999_Run_Subroutine("M10000_Clear_All", "Clear all")
-End Sub
-' Runs the M10030_Reset_Formulae subroutine.
-' Writes all formulae into the 2nd row on all sheets.
-' Usually the green column headings indicate which have formulae.
-Sub Run_M10030_Reset_Formulae()
-    Call Z99999_Run_Subroutine("M10030_Reset_Formulae", "Reset Formulae")
-End Sub
-' Runs the M10040_Refresh_Queries subroutine.
-' Refreshes all queries on all sheets.
-Sub Run_M10040_Refresh_Queries()
-    Call Z99999_Run_Subroutine("M10040_Refresh_Queries", "Refresh Queries")
-End Sub
-' Runs the M10100_Import_FinalABC subroutine.
-' Imports the FinalABC file.
-Sub Run_M10100_Import_FinalABC()
-    Call Z99999_Run_Subroutine("M10100_Import_FinalABC", "Import FinalABC")
-End Sub
-' Runs the M10110_Copy_Pre_FinalABC_Formulae_Down subroutine.
-' Copy initial formulae down on the FinalABC sheet.
-' Just enough data to allow the sheet to be later sorted and for the Mapping Pivots to be created.
-Sub Run_M10110_Copy_Pre_FinalABC_Formulae_Down()
-    Call Z99999_Run_Subroutine("M10110_Copy_Pre_FinalABC_Formulae_Down", "Copy pre-FinalABC formulae down")
-End Sub
-' Runs the M10120_Sort_FinalABC_column_A subroutine.
-' Sort FinalABC on column A in ascending order.
-Sub Run_M10120_Sort_FinalABC_column_A()
-    Call Z99999_Run_Subroutine("M10120_Sort_FinalABC_column_A", "Sort FinalABC")
-End Sub
-' Runs the M10200_Refresh_Mapping_Pivots subroutine.
-' Refresh the Mapping Pivots.
-' These only depend on the FinalABC sheet.
-Sub Run_M10200_Refresh_Mapping_Pivots()
-    Call Z99999_Run_Subroutine("M10200_Refresh_Mapping_Pivots", "Refresh Mapping Pivots")
-End Sub
-' Runs the M10300_Import_SHEETNAME1_from_Auto subroutine.
-' Import data into the SHEETNAME1 sheet from the "SHEETNAME1 - Auto" sheet instead of from a file.
-' The "SHEETNAME1 - Auto" sheet is populated from a query against G3.
-Sub Run_M10300_Import_SHEETNAME1_from_Auto()
-    Call Z99999_Run_Subroutine("M10300_Import_SHEETNAME1_from_Auto", "Import SHEETNAME1 from Auto")
-End Sub
-' Runs the M10300_Import_SHEETNAME1 subroutine.
-' Filename must be in the format SHEETNAME1CCYYMMDD.csv.
-' If not MMDD available then use 9999 in their place.
-Sub Run_M10300_Import_SHEETNAME1()
-    Call Z99999_Run_Subroutine("M10300_Import_SHEETNAME1", "Import SHEETNAME1 from a file")
-End Sub
-' Runs the M10400_Update_FinalABC_Formulae subroutine.
-' Updates the formulae on the FinalABC sheet to only reference the specific number of rows actually loaded into the
-' FinalABC sheet instead of something like A:A which would reference over 1 million rows and therefore may slow down
-' calculations etc.
-Sub Run_M10400_Update_FinalABC_Formulae()
-    Call Z99999_Run_Subroutine("M10400_Update_FinalABC_Formulae", "Update FinalABC formulae")
-End Sub
-' Runs the M10410_Copy_Post_FinalABC_Formulae_Down subroutine.
-' Copy the updated formula on the FinalABC sheet down for all populated rows.
-Sub Run_M10410_Copy_Post_FinalABC_Formulae_Down()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M10415_Copy_Post_FinalABC_Formulae_Down_Array", "Copy post-FinalABC formulae down")
-        Case 2
-            Call Z99999_Run_Subroutine("M10410_Copy_Post_FinalABC_Formulae_Down", "Copy post-FinalABC formulae down")
-        Case Else
-            Call Z99999_Run_Subroutine("M10415_Copy_Post_FinalABC_Formulae_Down_Array", "Copy post-FinalABC formulae down")
-    End Select
-End Sub
-' Runs the M10500_Copy_Pre_SHEETNAME1_Formulae_Down subroutine.
-' Copy pre SHEETNAME1 formula down.
-' Just enough data to allow SHEETNAME1 sheet to be sorted.
-Sub Run_M10500_Copy_Pre_SHEETNAME1_Formulae_Down()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M10505_Copy_Pre_SHEETNAME1_Formulae_Down_array", "Copy pre-SHEETNAME1 formulae down")
-        Case 2
-            Call Z99999_Run_Subroutine("M10500_Copy_Pre_SHEETNAME1_Formulae_Down", "Copy pre-SHEETNAME1 formulae down")
-        Case Else
-            Call Z99999_Run_Subroutine("M10505_Copy_Pre_SHEETNAME1_Formulae_Down_array", "Copy pre-SHEETNAME1 formulae down")
-    End Select
-End Sub
-' Runs the M10510_Sort_SHEETNAME1_column_A subroutine.
-' Sorts the SHEETNAME1 sheet by Column A and M in ascending order.
-Sub Run_M10510_Sort_SHEETNAME1_column_A()
-    Call Z99999_Run_Subroutine("M10510_Sort_SHEETNAME1_column_A", "Sort SHEETNAME1")
-End Sub
-' Runs the M10520_Update_SHEETNAME1_Formulae subroutine.
-' Updates the formulae on the SHEETNAME1 sheet to only reference the specific number of rows actually loaded into the SHEETNAME1 sheet
-' instead of something like A:A which would reference over 1 million rows and therefore may slow down calculations etc.
-Sub Run_M10520_Update_SHEETNAME1_Formulae()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M10520_Update_SHEETNAME1_Formulae", "Update SHEETNAME1 formulae")
-        Case 2
-            Call Z99999_Run_Subroutine("M10520_Update_SHEETNAME1_Formulae", "Update SHEETNAME1 formulae")
-        Case Else
-            Call Z99999_Run_Subroutine("M10520_Update_SHEETNAME1_Formulae", "Update SHEETNAME1 formulae")
-    End Select
-End Sub
-' Runs the M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array subroutine.
-' Speedy - copies using arrays.
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub Run_M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array()
-    Call Z99999_Run_Subroutine("M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array", "Copy post-SHEETNAME1 formulae down")
-End Sub
-' Runs the M10540_Copy_Post_SHEETNAME1_Formulae_Down subroutine.
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub Run_M10540_Copy_Post_SHEETNAME1_Formulae_Down()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array", "Copy post-SHEETNAME1 formulae down")
-        Case 2
-            Call Z99999_Run_Subroutine("M10540_Copy_Post_SHEETNAME1_Formulae_Down", "Copy post-SHEETNAME1 formulae down")
-        Case Else
-            Call Z99999_Run_Subroutine("M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array", "Copy post-SHEETNAME1 formulae down")
-    End Select
-End Sub
-' Runs the M10600_Copy_More_FinalABC_Formulae_Down subroutine.
-' Now that both Final and SHEETNAME1 sheets populated, need to action some more formula calculations.
-Sub Run_M10600_Copy_More_FinalABC_Formulae_Down()
-    Call Z99999_Run_Subroutine("M10600_Copy_More_FinalABC_Formulae_Down", "Copy more FinalABC formulae down")
-End Sub
-' Runs the M10610_Reformat_FinalABC_Corrected_Dates subroutine.
-' Adds 1 to the Corrected Date, column E, in the FinalABC sheet for dates that were the last date of the month.
-' It then recalculates the sheet to determine if column AJ now reconciles, i.e. shows "MATCHED GROSS AMOUNT ISIN BY MONTH".
-' This requires the following columns to have formulae throughout:  E, L, K, AI, AJ
-Sub Run_M10610_Reformat_FinalABC_Corrected_Dates()
-    Call Z99999_Run_Subroutine("M10610_Reformat_FinalABC_Corrected_Dates", "Reformat FinalABC corrected dates")
-End Sub
-' Runs the M10620_Recalc_SHEETNAME1_Formulae subroutine.
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub Run_M10620_Recalc_SHEETNAME1_Formulae()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M10615_Recalc_SHEETNAME1_Formulae_Array", "Recalc SHEETNAME1 formulae")
-        Case 2
-            Call Z99999_Run_Subroutine("M10625_Recalc_SHEETNAME1_Formulae", "Recalc SHEETNAME1 formulae")
-        Case Else
-            Call Z99999_Run_Subroutine("M10615_Recalc_SHEETNAME1_Formulae_Array", "Recalc SHEETNAME1 formulae")
-    End Select
-End Sub
-' Runs the M10700_Format_FinalABC_lines subroutine.
-' Format the FinalABC sheet to put lines between ISINs.
-Sub Run_M10700_Format_FinalABC_lines()
-    Call Z99999_Run_Subroutine("M10700_Format_FinalABC_lines", "Format FinalABC lines")
-End Sub
-' Runs the M10710_Format_SHEETNAME1_Lines subroutine.
-' Format the SHEETNAME1 sheet by placing lines between ISINs.
-Sub Run_M10710_Format_SHEETNAME1_Lines()
-    Call Z99999_Run_Subroutine("M10710_Format_SHEETNAME1_Lines", "Format SHEETNAME1 lines")
-End Sub
-' Runs the M10800_Refresh_Rec_Dashboard_Pivots subroutine.
-' Refresh the PIVOT tables on the REC DASHBOARD sheet.
-Sub Run_M10800_Refresh_Rec_Dashboard_Pivots()
-    Call Z99999_Run_Subroutine("M10800_Refresh_Rec_Dashboard_Pivots", "Refresh REC-Dashboard pivots")
-End Sub
-' Runs the M10810_Refresh_Adj_Dashboard_Pivots subroutine.
-' Refresh the PIVOT tables on the ADJ DASHBOARD sheet.
-Sub Run_M10810_Refresh_Adj_Dashboard_Pivots()
-    Call Z99999_Run_Subroutine("M10810_Refresh_Adj_Dashboard_Pivots", "Refresh ADJ-Dashboard pivots")
-End Sub
-' Runs the M10910_Revert_Reformatted_FinalABC_Corrected_Dates subroutine.
-' Reverts the Corrected Date, column E, in the FinalABC sheet back to its original calculated date.
-' It only does this for cells where column AJ does not still reconciles, i.e. does not show "MATCHED GROSS AMOUNT ISIN BY MONTH".
-' This requires the following columns to have formulae throughout:  E, L, K, AI, AJ
-Sub Run_M10910_Revert_Reformatted_FinalABC_Corrected_Dates()
-    Call Z99999_Run_Subroutine("M10910_Revert_Reformatted_FinalABC_Corrected_Dates", "Revert reformatted FinalABC corrected dates")
-End Sub
-' Runs the M11000_Clear_SHEETNAME1_lines subroutine.
-' Clears formatting on the SHEETNAME1 sheet.
-' Removes the lines between ISINs.
-Sub Run_M11000_Clear_SHEETNAME1_lines()
-    Call Z99999_Run_Subroutine("M11000_Clear_SHEETNAME1_lines", "Clear SHEETNAME1 lines")
-End Sub
-' Runs the M1110_Clear_FinalABC_lines subroutine.
-' Clears formatting on the FinalABC sheet.  Removes the lines between ISINs.
-Sub Run_M11110_Clear_FinalABC_lines()
-    Call Z99999_Run_Subroutine("M11110_Clear_FinalABC_lines", "Clear FinalABC lines")
-End Sub
-' Runs the M11200_Recalc_changed_adjusted_rows subroutine.
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub Run_M11200_Recalc_changed_adjusted_rows()
-    Select Case ctrl_processing_type
-        Case 1
-            Call Z99999_Run_Subroutine("M11205_Recalc_changed_adjusted_rows_Array_NEW", "Recalc changed adjusted rows")
-            'Call Z99999_Run_Subroutine("M11200_Recalc_changed_adjusted_rows_Array", "Recalc changed adjusted rows")
-        Case 2
-            Call Z99999_Run_Subroutine("M11210_Recalc_changed_adjusted_rows", "Recalc changed adjusted rows")
-        Case Else
-            Call Z99999_Run_Subroutine("M11200_Recalc_changed_adjusted_rows_Array", "Recalc changed adjusted rows")
-    End Select
-End Sub
-' Runs the M11207_Recalc_changed_adjusted_rows subroutine.
-' This prompt the user for a row in the SHEETNAME1 sheet.
-' It then recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub Run_M11207_Recalc_changed_adjusted_rows()
-    Call Z99999_Run_Subroutine("M11207_Recalc_changed_adjusted_rows_Array_NEW", "Recalc changed adjusted rows - SHEETNAME1")
-End Sub
-' Runs the M11208_Recalc_changed_adjusted_rows subroutine.
-' This prompt the user for a row in the FinalABC sheet.
-' It then recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub Run_M11208_Recalc_changed_adjusted_rows()
-    Call Z99999_Run_Subroutine("M11208_Recalc_changed_adjusted_rows_Array_NEW", "Recalc changed adjusted rows - FinalABC")
-End Sub
-' Runs the M12000_Copy_FinalABC_Formulae_Down subroutine.
-' Copies all formulae down on the FinalABC sheet.
-' Does not change the formula to values.  For that use the seperate subroutine.
-' Does not calculate.  This needs to be requested seperately when needed.  Probably only once the SHEETNAME1 sheet populated too.
-' This may run for a very long time.  Go have a coffee.
-Sub Run_M12000_Copy_FinalABC_Formulae_Down()
-    Call Z99999_Run_Subroutine("M12000_Copy_FinalABC_Formulae_Down", "Copy FinalABC formulae down")
-End Sub
-' Runs the M12010_Convert_FinalABC_Formulae_to_Values subroutine.
-' Converts all formulae on the FinalABC sheet to Values.
-' Does not change row 2 of the FinalABC sheet.  This retains the formulae in this row.
-' This may run for a very long time.  Go have a coffee.
-Sub Run_M12010_Convert_FinalABC_Formulae_to_Values()
-    Call Z99999_Run_Subroutine("M12010_Convert_FinalABC_Formulae_to_Values", "Convert FinalABC formulae to values")
-End Sub
-' Runs the M12020_Copy_SHEETNAME1_Formulae_Down subroutine.
-' Copies down all formulae on the SHEETNAME1 sheet.
-' Does not change the formula to values.  For that use the seperate subroutine.
-' Does not calculate.  This needs to be requested seperately when needed.  Probably only once the FinalABC sheet populated too.
-' This may run for a very long time.  Go have a coffee.
-Sub Run_M12020_Copy_SHEETNAME1_Formulae_Down()
-    Call Z99999_Run_Subroutine("M12020_Copy_SHEETNAME1_Formulae_Down", "Copy SHEETNAME1 formulae down")
-End Sub
-' Runs the M12030_Convert_SHEETNAME1_Formulae_to_Values subroutine.
-' Converts all formula cells on the SHEETNAME1 sheet into values.
-' Does not change row 2 of the SHEETNAME1 sheet.  This retains the formulae in this row.
-' This may run for a very long time.  Go have a coffee.
-Sub Run_M12030_Convert_SHEETNAME1_Formulae_to_Values()
-    Call Z99999_Run_Subroutine("M12030_Convert_SHEETNAME1_Formulae_to_Values", "Convert SHEETNAME1 formulae to values")
-End Sub
-' Runs the M13000_Import_Wxxxx subroutine.
-' Imports the Wxxxx file into the Wxxxx tab.
-' This also sorts the result and places in formulas.
-Sub Run_M13000_Import_Wxxxx()
-    Call Z99999_Run_Subroutine("M13000_Import_Wxxxx", "Import Wxxxx")
-End Sub
-' Clears all sheets, but leaves the formulae which are in the 2nd row on most sheets.
-Sub M10000_Clear_All()
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Clear all sheets?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Clear the SHEETNAME1 sheet.
-    Call M10010_Clear_SHEETNAME1
-    ' Clear the FinalABC sheet.
-    Call M10020_Clear_FinalABC
-End Sub
-' Clears the SHEETNAME1 sheet, but leaves the formulae which are in the 2nd row.
-Sub M10010_Clear_SHEETNAME1()
-    Dim lastrow_SHEETNAME1 As Long                    ' Last row in the SHEETNAME1 sheet
-    Dim rng As Range
-    Dim i As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    'If ctrl_ask_before_running_subroutine = True Then
-    '    If MsgBox("Clear the SHEETNAME1 sheet?", vbYesNo) = vbNo Then Exit Sub
-    'End If
-    ' Update StatusBar.
-    Application.StatusBar = "Clearing SHEETNAME1 sheet..."
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Set entire range to blank.
-            Set rng = .Range("A3:BO" & lastrow_SHEETNAME1)
-            rng.Value = ""
-            ' Clear entire sheet, except for row 2 which contains formulae.
-            ' Uses ClearContents instead of Delete as much quicker.
-            ' ClearContents only clears the cell value and not the formatting if any.
-            For i = lastrow_SHEETNAME1 To 3 Step -1
-                .Rows(i).ClearContents
-            Next i
-            ' Clear fields loaded from SHEETNAME1 file.
-            .Range("C2:E" & lastrow_SHEETNAME1).ClearContents
-            .Range("G2:G" & lastrow_SHEETNAME1).ClearContents
-            .Range("I2:I" & lastrow_SHEETNAME1).ClearContents
-            .Range("N2:S" & lastrow_SHEETNAME1).ClearContents
-            .Range("U2:U" & lastrow_SHEETNAME1).ClearContents
-            ' Clear formatting.
-            If ctrl_clear_formatting_as_well = True Then
-                .Range("A3:BO" & lastrow_SHEETNAME1).ClearFormats
-                .Range("C2:E" & lastrow_SHEETNAME1).ClearFormats
-                .Range("G2:G" & lastrow_SHEETNAME1).ClearFormats
-                .Range("I2:I" & lastrow_SHEETNAME1).ClearFormats
-                .Range("N2:S" & lastrow_SHEETNAME1).ClearFormats
-                .Range("U2:U" & lastrow_SHEETNAME1).ClearFormats
-            End If
-            ' Clear any double lines.  These are used to flag where the ISIN changes.
-            .Range("A1:BO" & lastrow_SHEETNAME1).Borders.LineStyle = xlNone
-            ' Reset font to standard.
-            .Range("A2:BO" & lastrow_SHEETNAME1).Font.name = Application.StandardFont
-            ' Delete all unused rows and columns in the sheet.
-            DeleteUnusedOnSheet ("SHEETNAME1")
-        End With
-    End With
-    ' Do calculation.
-    With Application
-        .Calculate
-    End With
-    ' Clear all objects.
-    Set rng = Nothing
-End Sub
-' Clears the FinalABC sheet, but leaves the formulae which are in the 2nd row.
-Sub M10020_Clear_FinalABC()
-    Dim lastrow_FinalABC As Long                ' Last row in the FinalABC sheet
-    Dim rng As Range
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    'If ctrl_ask_before_running_subroutine = True Then
-    '    If MsgBox("Clear the FinalABC sheet?", vbYesNo) = vbNo Then Exit Sub
-    'End If
-    ' Update StatusBar.
-    Application.StatusBar = "Clearing FinalABC sheet..."
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Clear entire sheet, except for row 2 which contains formulae.
-            .Range("A3:AT" & lastrow_FinalABC).ClearContents
-            ' Clear fields loaded from BBH file.
-            .Range("D2:D" & lastrow_FinalABC).ClearContents
-            .Range("F2:I" & lastrow_FinalABC).ClearContents
-            .Range("O2:O" & lastrow_FinalABC).ClearContents
-            .Range("S2:AH" & lastrow_FinalABC).ClearContents
-            ' Clear formatting.
-            If ctrl_clear_formatting_as_well = True Then
-                .Range("A3:AT" & lastrow_FinalABC).ClearFormats
-                .Range("D2:D" & lastrow_FinalABC).ClearFormats
-                .Range("F2:I" & lastrow_FinalABC).ClearFormats
-                .Range("O2:O" & lastrow_FinalABC).ClearFormats
-                .Range("S2:AH" & lastrow_FinalABC).ClearFormats
-            End If
-            ' Clear any double lines.  These are used to flag where the ISIN changes.
-            .Range("A1:AT" & lastrow_FinalABC).Borders.LineStyle = xlNone
-            ' Reset font to standard.
-            .Range("A3:AT" & lastrow_FinalABC).Font.name = Application.StandardFont
-            ' This deletes empty rows at the bottom of the sheet.  Important to save after this is run to commit this change.
-            ' This substantially reduces the size of the sheet, especially in larger Excel sheets going down to over 1 Million rows.
-            '.Range("A" & lastrow_FinalABC & ":AT" & Rows.Count).EntireRow.Delete
-            ' Delete all unused black rows and columns in the sheet.
-            DeleteUnusedOnSheet ("FinalABC")
-            ' Control to confirm there is currently no data in the blue columns in the FinalABC sheet.
-            If WorksheetFunction.CountA( _
-                .Range("D2:D" & lastrow_FinalABC), _
-                .Range("F2:I" & lastrow_FinalABC), _
-                .Range("O2:O" & lastrow_FinalABC), _
-                .Range("S2:AH" & lastrow_FinalABC)) > 0 Then
-                    Message "There is data still present in the blue columns in the FinalABC sheet, these should be blank. Ensure they are empty before running this process."
-                    Exit Sub
-            End If
-        End With
-    End With
-    ' Do calculation.
-    With Application
-        .Calculate
-    End With
-    ' Clear all objects.
-    Set rng = Nothing
-End Sub
-' Writes all formulae into the 2nd row on all sheets.
-' Usually the green column headings indicate which have formulae.
-Sub M10030_Reset_Formulae()
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Reset all Formulae?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Resetting Formulae..."
-    With Workbooks(wb_name)
-        ' Resets formulae on TRANSACTIONS.
-        'With .Sheets("TRANSACTIONS")
-        '    .Activate
-        '    .Range("A2").Formula = "=B2&F2&K2"
-        'End With
-        ' Resets formulae on SHEETNAME1.
-        With .Sheets("SHEETNAME1")
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Resetting Formulae...on SHEETNAME1"
-            .Range("A2").Formula = "=B2&"" - ""&TEXT(C2,""MMM"")&"" ""&YEAR(C2)"
-            .Range("B2").Formula = "=IFERROR(VLOOKUP(N2,SECT!A:B,2,FALSE),"""")"
-            .Range("F2").Formula = "=IF(X2=""EXCLUDE"",0,G2)"
-            .Range("H2").Formula = "=G2-J2"
-            .Range("J2").Formula = "=IF(K2="""",I2,IF(L2="""",I2,IF(OR(L2=0,K2=0),0,I2/(L2/K2))))"
-            .Range("L2").Formula = "=IF(G2=0,0,I2/G2)"
-            .Range("M2").Formula = "=VLOOKUP(U2,References!A:B,2,FALSE)"
-            .Range("T2").Formula = "=VLOOKUP(R2,CUST!A:B,2,FALSE)"
-            .Range("V2").Formula = "=IF(ISNA(VLOOKUP(B2,FinalABC!$D:$D,1,FALSE)),""NON EXIST"",""EXIST"")"
-            .Range("W2").Formula = "=B2=B1"
-            .Range("X2").Formula = "=IF(ISNA(VLOOKUP(A2,FinalABC!A:A,1,FALSE)),""NON EXIST"",""EXIST"")"
-            .Range("AB2").Formula = "=IF(OR(X2=""NON EXIST"",Y2=""EXCLUDE""),""NON REPORTABLE"",A2&"" - ""&ROUND(F2,0))"
-            .Range("AC2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A:$B,2,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F:$G,2,FALSE), ""MANUAL INPUT"")))"
-            .Range("AE2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A:$C,3,FALSE),IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F:$H,3,FALSE), ""MANUAL INPUT"")))"
-            .Range("AG2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",ROUND(SUMIF($A:$A,A2,$J:$J)-SUMIF(FinalABC!$A:$A,A2,FinalABC!$N:$N),2)))"
-            .Range("AH2").Formula = "=IF(AG2=""NON REPORTABLE"",AG2,IF(AND(ROUND(SUMIFS($J:$J,$A:$A,A2,$Y:$Y,""INCLUDE"")-SUMIF(FinalABC!$A:$A,A2,FinalABC!$N:$N),2)>-1,ROUND(SUMIFS($J:$J,$A:$A,A2,$Y:$Y,""INCLUDE"")-SUMIF(FinalABC!$A:$A,A2,FinalABC!$N:$N),2)<1),K2,""MANUAL INPUT""))"
-            .Range("AJ2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",ROUND(E2*SUM(AI2/100),2))"
-            .Range("AK2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",SUMIF($A:$A,A2,$AJ:$AJ)-SUMIF(FinalABC!$A:$A,A2,FinalABC!$N:$N))"
-            .Range("AL2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""), ""NON REPORTABLE"", IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A:$D,4,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F:$I,4,FALSE), ""MANUAL INPUT"")))"
-            .Range("AN2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(A2&"" - ""&AM2,'Mapping Pivots'!$K:$M,2,FALSE),0))"
-            .Range("AO2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(AN2=0,0,F2/AN2))"
-            .Range("AP2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$AO:$AO)-SUMIF(FinalABC!$A:$A,A2,FinalABC!$K:$K)))"
-            .Range("AQ2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",T2&"" - ""&  IFERROR(IF(VLOOKUP(R2,Wxxxx!B:Z,24,FALSE)=""YES"", ""VALID"", ""INVALID""),""INVALID"")&"" - "" & IFERROR(VLOOKUP(R2,Wxxxx!B:Z,25,FALSE),""N"") &"" - ""&K2)"
-            .Range("AR2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,2,FALSE),0))"
-            .Range("AS2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,3,FALSE),0))"
-            .Range("AT2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,4,FALSE),0))"
-            .Range("AV2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AD2&"" - ""&AF2,References!S:W,3,FALSE),0))"
-            .Range("AW2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(OR(AR2=""NO ADJUSTMENT REQUIRED"",K2=AU2),""NO ADJUSTMENT REQUIRED"",""ADJUST FROM ""&K2&""% TO ""&AU2&""% - BBH REPORTED ""&AH2&""%""))"
-            .Range("AX2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(R2=530572,""BPB&T IOM"",IF(T2=""IBGC"",""BPCI"",""BPB&T Jersey"")))"
-            .Range("AY2").Formula = "=IF(WV2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",ROUND((F2*AU2%)-J2,2)))"
-            .Range("BB2").Formula = "=IF(ISNA(VLOOKUP(U2,References!$AG:$AG,1,FALSE)),""NO ADJUSTMENT REQUIRED"",IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IFERROR(VLOOKUP(T2&"" - ""&AT2,References!$O$2:$Q$5,3,FALSE),0))))"
-            .Range("BD2").Formula = "=IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IFERROR(VLOOKUP(T2& "" - "" &AU2,References!$O$2:$Q$5,2,FALSE),0)))"
-            .Range("BE2").Formula = "=IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IF(BD2<>M2,""Yes"",""No"")))"
-            .Range("BG2").Formula = "=IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A:A,1,FALSE)),""NO HOLDINGS"",""STILL HAS HOLDINGS"")"
-            .Range("BH2").Formula = "=IFERROR(VLOOKUP(R2&N2,HOLDINGS!A:F,6,FALSE), ""NO HOLDINGS"")"
-            .Range("BI2").Formula = "=IF(BH2=""NO HOLDINGS"",""NO HOLDINGS"",IFERROR(VLOOKUP(BH2,References!A:B,2,FALSE),0))"
-            .Range("BJ2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A:L,12,FALSE),0))"
-            .Range("BK2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A:M,13,FALSE),0))"
-            .Range("BL2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A:N,14,FALSE),0))"
-            .Range("BM2").Formula = "=IF(ISNA(VLOOKUP(R2,QSHEET!A:A,1,FALSE)),""NOT ON QSHEET"", ""ON QSHEET"")"
-        End With
-        ' Resets formulae on FinalABC.
-        With .Sheets("FinalABC")
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Resetting Formulae...on FinalABC"
-            .Range("A2").Formula = "=D2&"" - ""&TEXT(E2,""MMM"")&"" ""&YEAR(E2)"
-            .Range("B2").Formula = "=A2&"" - ""&ROUND(L2,0)"
-            .Range("C2").Formula = "=A2&"" - ""&G2"
-            .Range("E2").Formula = "=TEXT(MID(F2,FIND("" "",F2)+1,FIND("","",F2)-FIND("" "",F2)-1)&"" ""&LEFT(F2,FIND("" "",F2)-1)&"" ""&RIGHT(F2,4),""dd/mm/yyyy"")"
-            .Range("K2").Formula = "=I2+J2"
-            .Range("L2").Formula = "=K2*AE2"
-            .Range("M2").Formula = "=L2-N2"
-            .Range("N2").Formula = "=P2*AE2"
-            .Range("P2").Formula = "=IF(R2="""",K2*S2/100,K2*R2/100)"
-            .Range("Q2").Formula = "=IF(R2="""",S2*100,R2*100)"
-            .Range("AI2").Formula = "=IF(ISNA(VLOOKUP(D2,'SHEETNAME1'!G:G,1,FALSE)),""NOT FOUND"",""FOUND"")"
-            .Range("AJ2").Formula = "=D2=D1"
-            .Range("AK2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$L:$L)-SUMIF('SHEETNAME1'!$A:$A,A2,'SHEETNAME1'!$F:$F))"
-            .Range("AL2").Formula = "=IF(A2=A1,AL1,IF(AND(AK2>-0.1,AK2<0.1),""MATCHED GROSS AMOUNT ISIN BY MONTH"",""GROSS AMOUNT NOT MATCHED ISIN BY MONTH""))"
-            .Range("AM2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$K:$K)-SUMIF('SHEETNAME1'!A:A,A2,'SHEETNAME1'!$AN:$AN))"
-            .Range("AR2").Formula = "=IF(COUNTIF($A$1:$A2,$A2)>1,""AGGREGATE"",SUMIF($A:$A,$A2,$O:$O)-SUMIF(SHEETNAME1!$A:$A,$A2,SHEETNAME1!$J:$J))"
-            .Range("AS2").Formula = "=IF(A2=A1,AS1,IF(AND(AR2>-0.1,AR2<0.1),""MATCHED TAX AMOUNT ISIN BY MONTH"",""TAX AMOUNT NOT MATCHED ISIN BY MONTH""))"
-            .Range("AT2").Formula = "=IF(COUNTIF($A$1:$A2,$A2)>1,""AGGREGATE"",SUMIF($A:$A,$A2,$O:$O)-SUMIF(SHEETNAME1!$A:$A,$A2,SHEETNAME1!$I:$I))"
-        End With
-        ' Resets formulae on References.
-        ' These are hard-coded for various rows as small in number.
-        With .Sheets("References")
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Resetting Formulae...on References"
-            .Range("O2").Formula = "=M2&"" - ""&N2"
-            .Range("O3").Formula = "=M3&"" - ""&N3"
-            .Range("O4").Formula = "=M4&"" - ""&N4"
-            .Range("O5").Formula = "=M5&"" - ""&N5"
-            .Range("S2").Formula = "=V2&"" - ""&W2"
-            .Range("S3").Formula = "=V3&"" - ""&W3"
-            .Range("S4").Formula = "=V4&"" - ""&W4"
-            .Range("S5").Formula = "=V5&"" - ""&W5"
-            .Range("S6").Formula = "=V6&"" - ""&W6"
-            .Range("S7").Formula = "=V7&"" - ""&W7"
-            .Range("S8").Formula = "=V8&"" - ""&W8"
-            .Range("S9").Formula = "=V9&"" - ""&W9"
-            .Range("S10").Formula = "=V10&"" - ""&W10"
-        End With
-        ' Resets formulae on QSHEET.
-        With .Sheets("QSHEET")
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Resetting Formulae...on QSHEET"
-            .Range("E2").Formula = "=VLOOKUP(A2,C:C,1,FALSE)"
-        End With
-        ' Resets formulae on "Wxxxx".
-        With .Sheets("Wxxxx")
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Resetting Formulae...on Wxxxx"
-            .Range("Y2").Formula = "=IF(AND(YEAR(T2)>=YEAR(NOW()), YEAR(T2)-YEAR(S2)<=3),IF(TRIM(C2)<>"""",IF(E2=TRUE,IF(G2=TRUE,IF(TRIM(K2)<>""All Other Countries"",IF(O2=TRUE,IF(P2=TRUE,IF(Q2=TRUE,IF(X2=FALSE,""YES"",""NO1""),""NO2""),""NO3""),""NO4""),""NO5""),""NO6""),""NO7""),""NO8""),""NO9"")"
-            .Range("Z2").Formula = "=IF(Y2=""YES"",IFERROR(VLOOKUP(K2,References!AI:AJ,2,FALSE),30),30)"
-        End With
-    End With
-End Sub
-' Refreshes all queries on all sheets.
-Sub M10040_Refresh_Queries()
-    Dim cn As WorkbookConnection
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Refresh all queries?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' First, ensure that the queries do not run in the background.
-    ' The queries need to really complete before we continue with the next subroutines.
-    For Each cn In ThisWorkbook.Connections
-        If cn.Type = xlConnectionTypeODBC Then
-            cn.ODBCConnection.BackgroundQuery = False
-        End If
-        If cn.Type = xlConnectionTypeOLEDB Then
-            cn.OLEDBConnection.BackgroundQuery = False
-        End If
-        ' Update status message.
-        Application.StatusBar = "Refreshing " & cn.name & "..."
-        ' Refresh the query.
-        cn.Refresh
-    Next cn
-    ' Call Sort_Queries
-    Call M10050_Sort_Queries
-    ' Clear all variables.
-    Set cn = Nothing
-End Sub
-' Sorts all queries on all sheets.
-' Unfortunately, the SQL sort does not match how Excel sorts the data, and therefore these are resorted per Excel.
-Sub M10050_Sort_Queries()
-    Dim lastrow_SHEETNAME1Auto As Long
-    Dim lastrow_CUST As Long
-    Dim lastrow_HOLDINGS As Long
-    Dim lastrow_QSHEET As Long
-    Dim lastrow_SECT As Long
-    Dim lastrow_TRANSACTIONS As Long
-    Dim lastrow_Wxxxx As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-'    If ctrl_ask_before_running_subroutine = True Then
-'        If MsgBox("Sort all queries?", vbYesNo) = vbNo Then Exit Sub
-'    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Sorting Queries..."
-    With Workbooks(wb_name)
-        With .Sheets("SECT")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on SECT"
-            ' Determine the number of rows.
-            lastrow_SECT = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_SECT), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:B" & lastrow_SECT)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("TRANSACTIONS")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on TRANSACTIONS"
-            ' Determine the number of rows.
-            lastrow_TRANSACTIONS = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_TRANSACTIONS), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:N" & lastrow_TRANSACTIONS)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("HOLDINGS")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on HOLDINGS"
-            ' Determine the number of rows.
-            lastrow_HOLDINGS = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_HOLDINGS), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:Y" & lastrow_HOLDINGS)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("CUST")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on CUST"
-            ' Determine the number of rows.
-            lastrow_CUST = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_CUST), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:B" & lastrow_CUST)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("SHEETNAME1 - Auto")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on SHEETNAME1 - Auto"
-            ' Determine the number of rows.
-            lastrow_SHEETNAME1Auto = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_SHEETNAME1Auto), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:T" & lastrow_SHEETNAME1Auto)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("QSHEET")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on QSHEET"
-            ' Determine the number of rows.
-            lastrow_QSHEET = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    ' PETER-FIX 20191211  .Add Key:=Range("A1:A" & lastrow_CUST), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                    .Add Key:=Range("A1:A" & lastrow_QSHEET), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                ' PETER-FIX 20191211 .SetRange Range("A1:A" & lastrow_CUST)
-                .SetRange Range("A1:A" & lastrow_QSHEET)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("Wxxxx")
-            ' Activates the sheet.
-            .Activate
-            ' Update StatusBar.
-            Application.StatusBar = "Sorting Queries...on Wxxxx"
-            ' Determine the number of rows.
-            lastrow_Wxxxx = .Cells(Rows.Count, 2).End(xlUp).Row
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("B1:B" & lastrow_Wxxxx), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-              ' PETER-FIX 20191211. .SetRange Range("A1:Z" & lastrow_CUST)
-                .SetRange Range("A1:Z" & lastrow_Wxxxx)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-End Sub
-' Imports the FinalABC file.
-' Imports the FinalABC file.
-Sub M10100_Import_FinalABC()
-    Dim fileToOpen As Variant
-    Dim count_FinalABC As Double
-    Dim count_InputFile As Double
-    Dim lastrow_FinalABC As Long
-    Dim lastrow_InputFile As Long
-    Dim my_from_column As Variant
-    Dim my_to_column As Variant
-    Dim fileToOpen_name As String
-    Dim FileParts() As String
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Import FinalABC?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Clear the FinalABC sheet.
-    Call M10020_Clear_FinalABC
-    ' Ask user for a FinalABC file to load.
-    fileToOpen = Application.GetOpenFilename("Excel files (*.xls; *.xlsx; *.csv),*.xls; *.xlsx; *.csv", , "Select FinalABC file")
-    If fileToOpen = False Then
-        MsgBox "No BBH file selected.  No data copied across to the FinalABC sheet."
-        Exit Sub
-    End If
-    FileParts() = Split(fileToOpen, Application.PathSeparator)
-    fileToOpen_name = FileParts(UBound(FileParts))
-    ' Update StatusBar.
-    Application.StatusBar = "Importing FinalABC file..." & fileToOpen_name
-    ' Start of copying columns across.
-    With Workbooks.Open(fileToOpen)
-        With .Sheets(1)
-            ' Control to check that the FinalABC file is in the usual format.
-            If .Range("A2") Like "???????" Then
-            Else
-                If ctrl_close_erroneous_files = True Then
-                    ' Close the file.
-                    Application.DisplayAlerts = False
-                    Workbooks(fileToOpen_name).Close
-                    Application.DisplayAlerts = True
-                End If
-                MsgBox "The FinalABC file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across."
-                Exit Sub
-            End If
-            ' Control to check that the FinalABC file is in the usual format.
-            If .Range("I2") Like "????" Then
-            Else
-                If ctrl_close_erroneous_files = True Then
-                    ' Close the file.
-                    Application.DisplayAlerts = False
-                    Workbooks(fileToOpen_name).Close
-                    Application.DisplayAlerts = True
-                End If
-                MsgBox "The FinalABC file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across"
-                Exit Sub
-            End If
-            ' Control to check that the FinalABC file is in the usual format.
-            If WorksheetFunction.CountA(.Range("A1:X1")) = 24 Then
-            Else
-                If ctrl_close_erroneous_files = True Then
-                    ' Close the file.
-                    Application.DisplayAlerts = False
-                    Workbooks(fileToOpen_name).Close
-                    Application.DisplayAlerts = True
-                End If
-                MsgBox "The FinalABC file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across"
-                Exit Sub
-            End If
-            ' Determine how many rows in the input file.
-            lastrow_InputFile = .Cells(Rows.Count, 1).End(xlUp).Row
-            ' Copy all columns from BBH file into master sheet where column names match.
-            For Each my_from_column In .Range("A1:AD1") ' Range is all columns in BBH file.
-                For Each my_to_column In Workbooks(wb_name).Sheets("FinalABC").Range("A1:AH1") ' AH is last column containing data from BBH file.
-                    If my_from_column = my_to_column Then .Range(Cells(2, my_from_column.Column), Cells(lastrow_InputFile + 1, my_from_column.Column).End(xlUp)).Copy Workbooks(wb_name).Sheets("FinalABC").Cells(2, my_to_column.Column)
-                Next my_to_column
-            Next my_from_column
-            ' Counts the number of cells from the input file that should have been copied across.
-            count_InputFile = WorksheetFunction.CountA(.Range("A2:V" & lastrow_InputFile))
-        End With
-        ' Close the file.
-        Application.DisplayAlerts = False
-        .Close
-        Application.DisplayAlerts = True
-    End With
-    ' Counts the number of cells in the FinalABC sheet that have been copied across.
-    With Workbooks(wb_name)
-        ' Activate the workbook.
-        .Activate
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Count how much data has been loaded into the FinalABC sheet.
-            count_FinalABC = WorksheetFunction.CountA( _
-                .Range("D2:D" & lastrow_FinalABC), _
-                .Range("F2:I" & lastrow_FinalABC), _
-                .Range("O2:O" & lastrow_FinalABC), _
-                .Range("S2:AH" & lastrow_FinalABC))
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Control to ensure that the number of cells copied across matches those in the originating file.
-    If count_FinalABC <> count_InputFile Then
-        Message "The number of cells copied from the FinalABC file does not equal the number of cells copied to the 1042 rec. Please manually copy them across."
-        Exit Sub
-    End If
-    ' Clear all objects.
-    Set my_from_column = Nothing
-    Set my_to_column = Nothing
-End Sub
-' Copy initial formulae down on the FinalABC sheet.
-' Just enough data to allow the sheet to be later sorted and for the Mapping Pivots to be created.
-Sub M10110_Copy_Pre_FinalABC_Formulae_Down()
-    Dim mycell As Variant
-    Dim lastrow_FinalABC As Long
-    Dim Pmt_Curr As Variant
-    Dim FX_Rate As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy pre FinalABC formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy pre-FinalABC formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the FinalABC sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Ensure that FX_Rate has a default value.
-            'For Each mycell In Workbooks(my1042Rec).Sheets("FinalABC").Range("AE2", Range("AE65536").End(xlUp))
-            For Each mycell In .Range("AE2:AE" & lastrow_FinalABC)
-                If Not mycell Like "*[0-9]*" Then mycell.Formula = 1
-            Next mycell
-            ' Copy using autofill.
-            .Range("A2:A2").AutoFill Destination:=.Range("A2:A" & lastrow_FinalABC)
-            .Range("B2:C2").AutoFill Destination:=.Range("B2:C" & lastrow_FinalABC)
-            .Range("E2").AutoFill Destination:=.Range("E2:E" & lastrow_FinalABC)
-            .Range("K2:L2").AutoFill Destination:=.Range("K2:L" & lastrow_FinalABC)
-            ' Copy using a resize.  Some say much quicker than alternative solutions, but not proven.
-            ' Destination is lastrow -1 as need to exclude header row.
-            'Dim rngSource As Range
-            'Dim rngTarget As Range
-            '    Set rngSource = .Range("A2:A2")
-            '    Set rngTarget = Range("A2:A2")
-            '    rngTarget.Resize(lastrow_FinalABC - 1, rngSource.Columns.Count).Formula = rngSource.Formula
-            ' Ensure that Payment Currency is set to something.  Default to USD for unknowns.
-            For Each Pmt_Curr In .Range("G2:G" & lastrow_FinalABC)
-                If RTrim(LTrim(Pmt_Curr)) = "" Then Pmt_Curr.Value = "USD"
-            Next Pmt_Curr
-            ' Ensure that the FX Rate is set to a valid number.  Default to 1 for unknowns.
-            For Each FX_Rate In .Range("AE2:AE" & lastrow_FinalABC)
-                If IsNumeric(FX_Rate) = False Then FX_Rate.Value = 1
-            Next FX_Rate
-            ' Calculations.
-            .Range("E2:E" & lastrow_FinalABC).Calculate
-            .Range("A2:A" & lastrow_FinalABC).Calculate
-            .Range("K2:L" & lastrow_FinalABC).Calculate
-            .Range("B2:C" & lastrow_FinalABC).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("A3:A" & lastrow_FinalABC) = .Range("A3:A" & lastrow_FinalABC).Value
-            .Range("B3:C" & lastrow_FinalABC) = .Range("B3:C" & lastrow_FinalABC).Value
-            .Range("E3:E" & lastrow_FinalABC) = .Range("E3:E" & lastrow_FinalABC).Value
-            .Range("K3:L" & lastrow_FinalABC) = .Range("K3:L" & lastrow_FinalABC).Value
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set mycell = Nothing
-    Set Pmt_Curr = Nothing
-    Set FX_Rate = Nothing
-End Sub
-' Sort FinalABC on column A in ascending order.
-Sub M10120_Sort_FinalABC_column_A()
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Sort FinalABC column A?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Sorting FinalABC...Column A"
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            On Error GoTo Whoa
-            ' Do the sort.
-            With .Sort
-                .SortFields.Clear
-                '    .SortFields.Add Key:=Range("A1:A" & lastrow_FinalABC), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
-                '        "Open,Closed", DataOption:=xlSortNormal
-                .SortFields.Add Key:=Range("A1:A1" & lastrow_FinalABC), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                .SetRange Range("A1:AT" & lastrow_FinalABC)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-        End With
-    End With
-    Exit Sub
-Whoa:
-    MsgBox "Error " & Err.Number & " " & Err.Description, vbOKOnly
-End Sub
-' Refresh the Mapping Pivots.
-' These only depend on data on the FinalABC sheet.
-Sub M10200_Refresh_Mapping_Pivots()
-    Dim pt As PivotTable
-    Dim pc As PivotCache
-    Dim lastrow_FinalABC As Long
-    Dim FinalABC_range As Range
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Refresh Mapping Pivot Tables?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Refreshing Mapping Pivots..."
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        Set FinalABC_range = Range("FinalABC!A1:AT" & lastrow_FinalABC)
-        With .Sheets("Mapping Pivots")
-            ' Activate the sheet.
-            .Activate
-            ' Refresh all the pivot tables on the Mapping Pivots sheet.
-            For Each pt In ActiveWorkbook.ActiveSheet.PivotTables
-                ' Update StatusBar.
-                Application.StatusBar = "Refreshing MappingPivot..." & pt.name
-                Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, FinalABC_range)
-                pt.ChangePivotCache pc
-                pt.RefreshTable
-                pt.Update
-            Next
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set pc = Nothing
-    Set FinalABC_range = Nothing
-End Sub
-' Import data into the SHEETNAME1 sheet from the "SHEETNAME1 - Auto" sheet instead of from a file.
-' The "SHEETNAME1 - Auto" sheet is populated from a query against G3.
-Sub M10300_Import_SHEETNAME1_from_Auto()
-    Dim SHEETNAME1 As String
-    Dim count_SHEETNAME1_Auto As Double
-    Dim count_SHEETNAME1 As Double
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_SHEETNAME1_Auto As Long
-    Dim i As Long
-    Dim txt As String
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Import SHEETNAME1 Auto?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Import SHEETNAME1 from Auto..."
-    With Workbooks(wb_name)
-        ' Clear the existing SHEETNAME1 sheet.
-        With .Sheets("SHEETNAME1")
-            ' Activate the SHEETNAME1 sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Clear entire sheet, except for row 2 which contains formulae.
-            With .Range("A3:BO" & lastrow_SHEETNAME1)
-                .ClearContents
-            End With
-            ' Clear fields loaded from SHEETNAME1 file.
-            .Range("C2:E" & lastrow_SHEETNAME1).ClearContents
-            .Range("G2:G" & lastrow_SHEETNAME1).ClearContents
-            .Range("I2:I" & lastrow_SHEETNAME1).ClearContents
-            .Range("N2:S" & lastrow_SHEETNAME1).ClearContents
-            .Range("U2:U" & lastrow_SHEETNAME1).ClearContents
-            ' Clear any double lines.  These are used to flag where the ISIN changes.
-            .Range("A1:BO" & lastrow_SHEETNAME1).Borders.LineStyle = xlNone
-            ' Control to confirm there is currently no data in the blue columns in the SHEETNAME1 sheet.
-            If WorksheetFunction.CountA( _
-                .Range("C2:E" & lastrow_SHEETNAME1), _
-                .Range("G2:G" & lastrow_SHEETNAME1), _
-                .Range("I2:I" & lastrow_SHEETNAME1), _
-                .Range("N2:S" & lastrow_SHEETNAME1), _
-                .Range("U2:U" & lastrow_SHEETNAME1)) > 0 Then
-                MsgBox "There is data still present in the blue columns in the SHEETNAME1 sheet, these should be blank. Ensure they are empty before running this process"
-                Application.Calculation = xlCalculationAutomatic
-                Application.EnableEvents = True
-                Application.ScreenUpdating = True
-                Exit Sub
-            End If
-        End With
-        With .Sheets("SHEETNAME1 - Auto")
-            ' Activate the sheet.
-            .Activate
-            '.Range("A1").Select
-            ScrollTo ActiveSheet.name, "A1"
-            ' Update StatusBar.
-            Application.StatusBar = "Refreshing the ""SHEETNAME1 - Auto"" query..."
-            ' Refresh the queries.
-            Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
-            ' Control to check that the SHEETNAME1 file is in the usual format.
-            If .Range("A2") Like "???" And .Range("T2") Like "???" And .Range("N2") Like "########" Then
-            Else
-                MsgBox "The 'SHEETNAME1 - Auto' sheet is not in the usual format, it may have been changed since the code was written, please follow the procedure to manually copy the columns across"
-                Exit Sub
-            End If
-            ' Update StatusBar.
-            Application.StatusBar = "Copying data from ""SHEETNAME1 - Auto"" to SHEETNAME1..."
-            ' Copy data from "SHEETNAME1 - Auto" to SHEETNAME1 my way.
-            lastrow_SHEETNAME1_Auto = .Cells(Rows.Count, 4).End(xlUp).Row
-            .Range("A2:A" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("S2")
-            .Range("C2:C" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("R2")
-            .Range("D2:D" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("S2")
-            .Range("F2:F" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("E2")
-            .Range("G2:G" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("N2")
-            .Range("J2:J" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("C2")
-            .Range("K2:K" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("P2")
-            .Range("L2:L" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("Q2")
-            .Range("P2:P" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("I2")
-            .Range("Q2:Q" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("G2")
-            .Range("T2:T" & lastrow_SHEETNAME1_Auto).Copy Sheets("SHEETNAME1").Range("D2")
-            ' Counts the number of cells in the SHEETNAME1 file that should have been copied across.
-            count_SHEETNAME1_Auto = WorksheetFunction.CountA( _
-                .Range("A2:A" & lastrow_SHEETNAME1_Auto), _
-                .Range("C2:C" & lastrow_SHEETNAME1_Auto), _
-                .Range("D2:D" & lastrow_SHEETNAME1_Auto), _
-                .Range("F2:F" & lastrow_SHEETNAME1_Auto), _
-                .Range("G2:G" & lastrow_SHEETNAME1_Auto), _
-                .Range("H2:H" & lastrow_SHEETNAME1_Auto), _
-                .Range("J2:J" & lastrow_SHEETNAME1_Auto), _
-                .Range("K2:K" & lastrow_SHEETNAME1_Auto), _
-                .Range("L2:L" & lastrow_SHEETNAME1_Auto), _
-                .Range("P2:P" & lastrow_SHEETNAME1_Auto), _
-                .Range("Q2:Q" & lastrow_SHEETNAME1_Auto), _
-                .Range("T2:T" & lastrow_SHEETNAME1_Auto))
-        End With
-        ' Tidy up some columns in the SHEETNAME1 sheet.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Update StatusBar.
-            Application.StatusBar = "Fixing SEDOLs..."
-            'Set the SEDOL range format to text.
-            .Range("N2:N" & lastrow_SHEETNAME1).NumberFormat = "@"
-            ' Adds 0's to the front of the sedol number.
-            Dim x
-            For i = 2 To lastrow_SHEETNAME1
-                txt = .Range("N" & i).Value
-                If Len(txt) < 7 Then
-                    For x = 1 To (7 - Len(txt))
-                        txt = "0" & txt
-                    Next x
-                End If
-                If IsNumeric(txt) Then
-                    txt = "'" & txt
-                End If
-                .Range("N" & i) = txt
-            Next i
-            ' In the SHEETNAME1 file, the sedol name is spread out over two columsn, so we can't do a straight copy and paste
-            ' therefore we must put a formula in the SHEETNAME1 sheet to concatenate the two columns.
-            .Range("O2").Formula = "='SHEETNAME1 - Auto'!H2&'SHEETNAME1 - Auto'!I2"
-            .Range("O2:O2").AutoFill Destination:=Range("O2:O" & lastrow_SHEETNAME1)
-            ' Update StatusBar.
-            Application.StatusBar = "Fixing Pay Dates..."
-            ' Convert the pay date using a formula.
-            ' In order to convert the pay date it is neccessary to use a formula that copies the data from the SHEETNAME1 file instead of copy/pasting it.
-            .Range("C2").Formula = "=if('SHEETNAME1 - Auto'!J2>9999999,DATE(RIGHT('SHEETNAME1 - Auto'!J2,4),MID('SHEETNAME1 - Auto'!J2,3,2),LEFT('SHEETNAME1 - Auto'!J2,2)),DATE(RIGHT('SHEETNAME1 - Auto'!J2,4),MID('SHEETNAME1 - Auto'!J2,2,2),LEFT('SHEETNAME1 - Auto'!J2,1)))"
-            ' Change format of date.
-            .Range("C2:C2").AutoFill Destination:=.Range("C2:C" & lastrow_SHEETNAME1)
-            .Range("C2:C" & lastrow_SHEETNAME1).NumberFormat = "yyyymmdd"
-            .Range("C2:C" & lastrow_SHEETNAME1).Calculate
-            ' Change formulae to values.
-            .Range("C3:C" & lastrow_SHEETNAME1) = .Range("C3:C" & lastrow_SHEETNAME1).Value
-            ' Counts the number of cells in the SHEETNAME1 that have been copied across.
-            count_SHEETNAME1 = WorksheetFunction.CountA( _
-                .Range("C2:E" & lastrow_SHEETNAME1), _
-                .Range("G2:G" & lastrow_SHEETNAME1), _
-                .Range("I2:I" & lastrow_SHEETNAME1), _
-                .Range("N2:S" & lastrow_SHEETNAME1), _
-                .Range("U2:U" & lastrow_SHEETNAME1))
-            ' Control to ensure that the number of cells copied across matches those in the originating file.
-            If count_SHEETNAME1 <> count_SHEETNAME1_Auto Then
-                MsgBox "The number of cells copied from the SHEETNAME1 file does not equal the number of cells copied to the 1042 rec. Please manually copy them across."
-                '.Range("C2:E" & lastrow_SHEETNAME1).ClearContents
-                '.Range("G2:G" & lastrow_SHEETNAME1).ClearContents
-                '.Range("I2:I" & lastrow_SHEETNAME1).ClearContents
-                '.Range("K2:K" & lastrow_SHEETNAME1).ClearContents
-                '.Range("M2:R" & lastrow_SHEETNAME1).ClearContents
-                '.Range("T2:T" & lastrow_SHEETNAME1).ClearContents
-                Exit Sub
-            End If
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("FinalABC")
-            ' Activate the FinalABC sheet.
-            .Activate
-            ' Resets formulae on FinalABC to point to "SHEETNAME1" instead of "SHEETNAME1".
-            .Range("AI2").Formula = "=IF(ISNA(VLOOKUP(D2,'SHEETNAME1'!G:G,1,FALSE)),""NOT FOUND"",""FOUND"")"
-            .Range("AK2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$L:$L)-SUMIF('SHEETNAME1'!$A:$A,A2,'SHEETNAME1'!$F:$F))"
-            .Range("AM2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$K:$K)-SUMIF('SHEETNAME1'!A:A,A2,'SHEETNAME1'!$AN:$AN))"
-            .Range("AR2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$P:$P)-SUMIF('SHEETNAME1'!$A:$A,A2,'SHEETNAME1'!$J:$J))"
-            .Range("AT2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$O:$O)-SUMIF('SHEETNAME1'!A:A,A2,'SHEETNAME1'!$I:$I))"
-        End With
-    End With
-End Sub
-' Import data into the SHEETNAME1 sheet from a file.
-' Filename must be in the format SHEETNAME1CCYYMMDD.csv.
-' If not MMDD available then use 9999 in their place.
-Sub M10300_Import_SHEETNAME1()
-    Dim fileToOpen As Variant
-    Dim count_SHEETNAME1 As Double
-    Dim count_InputFile As Double
-    Dim fileToOpen_name As String
-    Dim FileParts() As String
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim lastrow_InputFile As Long
-    Dim Include_Exclude As Variant
-    Dim i As Long
-    Dim txt As String
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Import SHEETNAME1?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Clear the SHEETNAME1 sheet.
-    Call M10010_Clear_SHEETNAME1
-    ' Update StatusBar.
-    Application.StatusBar = "Importing SHEETNAME1 file..."
-    ' Prompt for a file.
-    fileToOpen = Application.GetOpenFilename("Excel files (*.xls; *.xlsx; *.csv),*.xls; *.xlsx; *.csv", , "Select SHEETNAME1 file")
-    If fileToOpen = False Then
-        MsgBox "No BBH file selected.  No data copied across to the FinalABC sheet."
-        Exit Sub
-    End If
-    FileParts() = Split(fileToOpen, Application.PathSeparator)
-    fileToOpen_name = FileParts(UBound(FileParts))
-    ' Update StatusBar.
-    Application.StatusBar = "Importing SHEETNAME1 file..." & fileToOpen_name
-    ' Start of copying columns across.
-    With Workbooks.Open(fileToOpen)
-        With .Sheets(1)
-            ' Control to check that the SHEETNAME1 file is in the usual format.
-            If .Range("A1") Like "???" And .Range("T1") Like "???" And .Range("N1") Like "########" Then
-            Else
-                MsgBox "The SHEETNAME1 file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across."
-                If ctrl_close_erroneous_files = True Then
-                    Application.DisplayAlerts = False
-                    Workbooks(fileToOpen_name).Close
-                    Application.DisplayAlerts = True
-                End If
-                Exit Sub
-            End If
-            ' Determine how many rows in the input file.
-            lastrow_InputFile = .Cells(Rows.Count, 1).End(xlUp).Row
-        End With
-        ' Copy data to the SHEETNAME1 sheet.
-        With .Sheets(1)
-            ' Copy data from the Input file to the SHEETNAME1 sheet.
-            .Range("A1:A" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("U2")
-            .Range("C1:C" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("R2")
-            .Range("D1:D" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("S2")
-            .Range("F1:F" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("E2")
-            .Range("G1:G" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("N2")
-            ' In the SHEETNAME1 file, the sedol name is spread out over two columsn, so we can't do a straight copy and paste
-            ' therefore we must put a formula in the SHEETNAME1 sheet to concatenate the two columns.
-            Workbooks(wb_name).Sheets("SHEETNAME1").Range("O2").Formula = "=" & fileToOpen_name & "!H1&" & """; ""&" & fileToOpen_name & "!I1"
-            ' In order to convert the pay date it is neccessary to use a formula that copies the data from the SHEETNAME1 file instead of copy/pasting it.
-            Workbooks(wb_name).Sheets("SHEETNAME1").Range("C2").Formula = "=if(" & fileToOpen_name & "!J1>9999999,DATE(RIGHT(" & fileToOpen_name & "!J1,4),MID(" & fileToOpen_name & "!J1,3,2),LEFT(" & fileToOpen_name & "!J1,2)),DATE(RIGHT(" & fileToOpen_name & "!J1,4),MID(" & fileToOpen_name & "!J1,2,2),LEFT(" & fileToOpen_name & "!J1,1)))"
-            ' Copy data from the Input file to the SHEETNAME1 sheet.
-            .Range("K1:K" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("P2")
-            .Range("L1:L" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("Q2")
-            .Range("P1:P" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("I2")
-            .Range("Q1:Q" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("G2")
-            .Range("T1:T" & lastrow_InputFile).Copy Workbooks(wb_name).Sheets("SHEETNAME1").Range("D2")
-            ' Counts the number of cells in the SHEETNAME1 file that should have been copied across.
-            count_InputFile = WorksheetFunction.CountA( _
-                .Range("A1:A" & lastrow_InputFile), _
-                .Range("C1:C" & lastrow_InputFile), _
-                .Range("D1:D" & lastrow_InputFile), _
-                .Range("F1:F" & lastrow_InputFile), _
-                .Range("G1:G" & lastrow_InputFile), _
-                .Range("H1:H" & lastrow_InputFile), _
-                .Range("J1:J" & lastrow_InputFile), _
-                .Range("K1:K" & lastrow_InputFile), _
-                .Range("L1:L" & lastrow_InputFile), _
-                .Range("P1:P" & lastrow_InputFile), _
-                .Range("Q1:Q" & lastrow_InputFile), _
-                .Range("T1:T" & lastrow_InputFile))
-        End With
-    End With
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the SHEETNAME1 sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Update StatusBar.
-            Application.StatusBar = "Fixing SEDOLs..."
-            'Set the SEDOL range format to text.
-            .Range("N2:N" & lastrow_SHEETNAME1).NumberFormat = "@"
-            ' Adds 0's to the front of the sedol number.
-            Dim x
-            For i = 2 To lastrow_SHEETNAME1
-                txt = .Range("N" & i).Value
-                If Len(txt) < 7 Then
-                    For x = 1 To (7 - Len(txt))
-                        txt = "0" & txt
-                    Next x
-                End If
-                If IsNumeric(txt) Then
-                    txt = "'" & txt
-                End If
-                .Range("N" & i) = txt
-            Next i
-            ' Copy and paste SEDOL as values to allow vlookups to work correctly.
-            ' Certain SEDOLs are only numbers and numbers don't work in vlookups to strings.
-            .Range("N2:N" & lastrow_SHEETNAME1) = .Range("N2:N" & lastrow_SHEETNAME1).Value
-            ' In the SHEETNAME1 file, the sedol name is spread out over two columsn, so we can't do a straight copy and paste
-            ' therefore we must put a formula in the SHEETNAME1 sheet to concatenate the two columns.
-            .Range("O2:O2").AutoFill Destination:=.Range("O2:O" & lastrow_SHEETNAME1)
-            .Range("O2:O" & lastrow_SHEETNAME1).Calculate
-            .Range("O2:O" & lastrow_SHEETNAME1) = .Range("O2:O" & lastrow_SHEETNAME1).Value
-            ' Update StatusBar.
-            Application.StatusBar = "Fixing Pay Dates..."
-            ' In order to convert the pay date it is neccessary to use a formula that copies the data from the SHEETNAME1 file instead of copy/pasting it.
-            .Range("C2:C2").AutoFill Destination:=.Range("C2:C" & lastrow_SHEETNAME1)
-            .Range("C2:C" & lastrow_SHEETNAME1).NumberFormat = "yyyymmdd"
-            .Range("C2:C" & lastrow_SHEETNAME1).Calculate
-            .Range("C2:C" & lastrow_SHEETNAME1) = .Range("C2:C" & lastrow_SHEETNAME1).Value
-            ' Copy "Include / Exclude" column value down.  Default to setting this to INCLUDE.
-            For Each Include_Exclude In .Range("Y2:Y" & lastrow_SHEETNAME1)
-                If RTrim(LTrim(Include_Exclude)) = "" Then Include_Exclude.Value = "INCLUDE"
-            Next Include_Exclude
-            ' Counts the number of cells in the SHEETNAME1 sheet that have been copied across.
-            count_SHEETNAME1 = WorksheetFunction.CountA( _
-                .Range("C2:C" & lastrow_SHEETNAME1), _
-                .Range("D2:D" & lastrow_SHEETNAME1), _
-                .Range("E2:E" & lastrow_SHEETNAME1), _
-                .Range("G2:G" & lastrow_SHEETNAME1), _
-                .Range("I2:I" & lastrow_SHEETNAME1), _
-                .Range("N2:N" & lastrow_SHEETNAME1), _
-                .Range("O2:O" & lastrow_SHEETNAME1), _
-                .Range("P2:P" & lastrow_SHEETNAME1), _
-                .Range("Q2:Q" & lastrow_SHEETNAME1), _
-                .Range("S2:S" & lastrow_SHEETNAME1), _
-                .Range("R2:R" & lastrow_SHEETNAME1), _
-                .Range("U2:U" & lastrow_SHEETNAME1))
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-        With .Sheets("FinalABC")
-            ' Activate the FinalABC sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 5).End(xlUp).Row
-            ' Resets formulae on FinalABC to point to "SHEETNAME1" instead of "SHEETNAME1 - Auto".
-            .Range("AI2").Formula = "=IF(ISNA(VLOOKUP(D2,'SHEETNAME1'!$G$1:$G$" & lastrow_SHEETNAME1 & ",1,FALSE)),""NOT FOUND"",""FOUND"")"
-            .Range("AK2").Formula = "=IF(COUNTIF($A$1:$A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$L$1:$L$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$F$1:$F$" & lastrow_SHEETNAME1 & "))"
-            .Range("AM2").Formula = "=IF(COUNTIF($A$1:$A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$K$1:$K$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$AO$1:$AO$" & lastrow_SHEETNAME1 & "))"
-            '.Range("AP2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$O:$O)-SUMIF('SHEETNAME1'!$A:$A,A2,'SHEETNAME1'!$J:$J))"
-            .Range("AR2").Formula = "=IF(COUNTIF($A$1:$A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$P$1:$P$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$J$1:$J$" & lastrow_SHEETNAME1 & "))"
-            '.Range("AR2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A:$A,A2,$O:$O)-SUMIF('SHEETNAME1'!A:A,A2,'SHEETNAME1'!$I:$I))"
-            .Range("AT2").Formula = "=IF(COUNTIF($A$1:$A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$O$1:$O$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$I$1:$I$" & lastrow_SHEETNAME1 & "))"
-        End With
-    End With
-    ' Control to ensure that the number of cells copied across matches those in the originating file.
-    If count_SHEETNAME1 <> count_InputFile Then
-        MsgBox "The number of cells copied from the Input File does not equal the number of cells copied to the SHEETNAME1 sheet. Please manually copy them across."
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("C2", Range("E65536").End(xlUp)).ClearContents
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("G2", Range("G65536").End(xlUp)).ClearContents
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("I2", Range("I65536").End(xlUp)).ClearContents
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("K2", Range("K65536").End(xlUp)).ClearContents
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("M2", Range("R65536").End(xlUp)).ClearContents
-        'Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("T2", Range("T65536").End(xlUp)).ClearContents
-        ' Close the SHEETNAME1 file.
-        If ctrl_close_erroneous_files = True Then
-            Application.DisplayAlerts = False
-            Workbooks(fileToOpen_name).Close
-            Application.DisplayAlerts = True
-        End If
-        Exit Sub
-    End If
-    ' Close the SHEETNAME1 file.
-    Application.DisplayAlerts = False
-    Workbooks(fileToOpen_name).Close
-    Application.DisplayAlerts = True
-    ' Clear all objects.
-    Set Include_Exclude = Nothing
-End Sub
-' Updates the formulae on the FinalABC sheet to only reference the specific number of rows actually loaded into the
-' FinalABC sheet instead of something like A:A which would reference over 1 million rows and therefore may slow down
-' calculations etc.
-Sub M10400_Update_FinalABC_Formulae()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Update FinalABC formulae?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Updating FinalABC Formulae..."
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Resets formulae on FinalABC.
-            .Range("A2").Formula = "=D2&"" - ""&TEXT(E2,""MMM"")&"" ""&YEAR(E2)"
-            .Range("B2").Formula = "=A2&"" - ""&ROUND(L2,0)"
-            .Range("C2").Formula = "=A2&"" - ""&G2"
-            .Range("E2").Formula = "=TEXT(MID(F2,FIND("" "",F2)+1,FIND("","",F2)-FIND("" "",F2)-1)&"" ""&LEFT(F2,FIND("" "",F2)-1)&"" ""&RIGHT(F2,4),""dd/mm/yyyy"")"
-            .Range("K2").Formula = "=I2+J2"
-            .Range("L2").Formula = "=K2*AE2"
-            .Range("M2").Formula = "=L2-N2"
-            .Range("N2").Formula = "=P2*AE2"
-            .Range("P2").Formula = "=IF(R2="""",K2*S2/100,K2*R2/100)"
-            .Range("Q2").Formula = "=IF(R2="""",S2*100,R2*100)"
-            .Range("AI2").Formula = "=IF(ISNA(VLOOKUP(D2,'SHEETNAME1'!G$1:G$" & lastrow_SHEETNAME1 & ",1,FALSE)),""NOT FOUND"",""FOUND"")"
-            .Range("AJ2").Formula = "=D2=D1"
-            .Range("AK2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$L$1:$L$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$F$1:$F$" & lastrow_SHEETNAME1 & "))"
-            .Range("AL2").Formula = "=IF(A2=A1,AL1,IF(AND(AK2>-0.1,AK2<0.1),""MATCHED GROSS AMOUNT ISIN BY MONTH"",""GROSS AMOUNT NOT MATCHED ISIN BY MONTH""))"
-            .Range("AM2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$K$1:$K$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$AO$1:$AO$" & lastrow_SHEETNAME1 & "))"
-            .Range("AR2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$P$1:$P$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$J$1:$J$" & lastrow_SHEETNAME1 & "))"
-            .Range("AS2").Formula = "=IF(A2=A1,AS1,IF(AND(AR2>-0.1,AR2<0.1),""MATCHED TAX AMOUNT ISIN BY MONTH"",""TAX AMOUNT NOT MATCHED ISIN BY MONTH""))"
-            .Range("AT2").Formula = "=IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_FinalABC & ",A2,$O$1:$O$" & lastrow_FinalABC & ")-SUMIF('SHEETNAME1'!$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,'SHEETNAME1'!$I$1:$I$" & lastrow_SHEETNAME1 & "))"
-        End With
-    End With
-End Sub
-' Copy the updated formula on the FinalABC sheet down for all populated rows.
-Sub M10410_Copy_Post_FinalABC_Formulae_Down()
-    Dim mycell As Variant
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy post FinalABC formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy post-FinalABC Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' For Each mycell In Workbooks(my1042Rec).Sheets("FinalABC").Range("AE2", Range("AE65536").End(xlUp).Offset(0, -1))
-            For Each mycell In .Range("AE2:AE" & lastrow_FinalABC)
-                If Not mycell Like "*[0-9]*" Then mycell.Formula = 1
-            Next mycell
-            ' Copies formulae down.
-            .Range("M2:N2").AutoFill Destination:=.Range("M2:N" & lastrow_FinalABC)
-            .Range("P2").AutoFill Destination:=.Range("P2:P" & lastrow_FinalABC)
-            .Range("Q2").AutoFill Destination:=.Range("Q2:Q" & lastrow_FinalABC)
-            .Range("AI2:AM2").AutoFill Destination:=.Range("AI2:AM" & lastrow_FinalABC)
-            .Range("AR2:AT2").AutoFill Destination:=.Range("AR2:AT" & lastrow_FinalABC)
-            ' Calculations.
-            .Range("M2:N" & lastrow_FinalABC).Calculate
-            .Range("P2:P" & lastrow_FinalABC).Calculate
-            .Range("Q2:Q" & lastrow_FinalABC).Calculate
-            'TODO below calc is not needed now.  Only needed once SHEETNAME1 file is loaded, as AG to AK use SHEETNAME1 data.
-            .Range("AI2:AM" & lastrow_FinalABC).Calculate
-            .Range("AR2:AT" & lastrow_FinalABC).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("M3:N" & lastrow_FinalABC) = .Range("M3:N" & lastrow_FinalABC).Value
-            .Range("P3:P" & lastrow_FinalABC) = .Range("P3:P" & lastrow_FinalABC).Value
-            .Range("Q3:Q" & lastrow_FinalABC) = .Range("Q3:Q" & lastrow_FinalABC).Value
-            .Range("AI3:AM" & lastrow_FinalABC) = .Range("AI3:AM" & lastrow_FinalABC).Value
-            .Range("AR3:AT" & lastrow_FinalABC) = .Range("AR3:AT" & lastrow_FinalABC).Value
-        End With
-    End With
-    ' Clear all objects.
-    Set mycell = Nothing
-End Sub
-' Copy the updated formula on the FinalABC sheet down for all populated rows.
-' Speeds this up using Arrays
-Sub M10415_Copy_Post_FinalABC_Formulae_Down_Array()
-    Dim mycell As Variant
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim working As Variant
-    Dim column_a_FinalABC As Variant
-    Dim column_d_FinalABC As Variant
-    Dim column_k_FinalABC As Variant
-    Dim column_l_FinalABC As Variant
-    Dim column_n_FinalABC As Variant
-    Dim column_o_FinalABC As Variant
-    Dim column_p_FinalABC As Variant
-    Dim column_r_FinalABC As Variant
-    Dim column_s_FinalABC As Variant
-    Dim column_ae_FinalABC As Variant
-    Dim column_ak_FinalABC As Variant
-    Dim column_al_FinalABC As Variant
-    Dim column_a_SHEETNAME1 As Variant
-    Dim column_f_SHEETNAME1 As Variant
-    Dim column_g_SHEETNAME1 As Variant
-    Dim column_i_SHEETNAME1 As Variant
-    Dim column_j_SHEETNAME1 As Variant
-    Dim column_ao_SHEETNAME1 As Variant
-    Dim n As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy post FinalABC formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy post-FinalABC Formulae down..."
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ReDim working(1 To lastrow_FinalABC, 1) ' Working array
-            working = Range("D3:D" & lastrow_FinalABC) ' load with dummy values.
-            ReDim column_a_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_k_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_l_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_n_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_o_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_p_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_r_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_s_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_ae_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_ak_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_al_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_a_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_f_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_g_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_i_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_j_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ao_SHEETNAME1(1 To lastrow_SHEETNAME1, 1)
-            ' Column AE
-            ' FX_Rate
-            working = Range("AE3:AE" & lastrow_FinalABC)
-            column_ae_FinalABC = Range("AE3:AE" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-              If Not column_ae_FinalABC(n, 1) Like "*[0-9]*" Then
-                working(n, 1) = 1
-              End If
-            Next n
-            .Range("AE3:AE" & lastrow_FinalABC).Value = working
-            ' Column P - needed before column N
-            ' =IF(R2="",K2*S2/100,K2*R2/100)
-            column_r_FinalABC = Range("R3:R" & lastrow_FinalABC)
-            column_k_FinalABC = Range("O3:O" & lastrow_FinalABC)
-            column_s_FinalABC = Range("S3:S" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If column_r_FinalABC(n, 1) = "" Then
-                    working(n, 1) = column_k_FinalABC(n, 1) * column_s_FinalABC(n, 1) / 100
-                Else
-                    working(n, 1) = column_k_FinalABC(n, 1) * column_r_FinalABC(n, 1) / 100
-                End If
-            Next n
-            .Range("P3:P" & lastrow_FinalABC).Value = working
-            ' Column N - needed before column M
-            ' =P2*AE2
-            column_p_FinalABC = Range("P3:P" & lastrow_FinalABC)
-            column_ae_FinalABC = Range("AE3:AE" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = column_p_FinalABC(n, 1) * column_ae_FinalABC(n, 1)
-            Next n
-            .Range("N3:N" & lastrow_FinalABC).Value = working
-            ' Column M
-            '=L2-N2
-            column_l_FinalABC = Range("L3:L" & lastrow_FinalABC)
-            column_n_FinalABC = Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = column_l_FinalABC(n, 1) - column_n_FinalABC(n, 1)
-            Next n
-            .Range("M3:M" & lastrow_FinalABC).Value = working
-            ' Column Q
-            ' =IF(R2="",S2*100,R2*100)
-            column_r_FinalABC = Range("R3:R" & lastrow_FinalABC)
-            column_s_FinalABC = Range("S3:S" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If column_r_FinalABC(n, 1) = "" Then
-                    working(n, 1) = column_s_FinalABC(n, 1) * 100
-                Else
-                    working(n, 1) = column_r_FinalABC(n, 1) * 100
-                End If
-            Next n
-            .Range("Q3:Q" & lastrow_FinalABC).Value = working
-            ' Column AI
-            ' =IF(ISNA(VLOOKUP(D2,SHEETNAME1!G$1:G$52435,1,FALSE)),"NOT FOUND","FOUND")
-            column_d_FinalABC = Range("D3:D" & lastrow_FinalABC)
-            column_g_SHEETNAME1 = Range("G3:G" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_g_SHEETNAME1, column_d_FinalABC(n, 1), "FOUND", "NOT FOUND")
-            Next n
-            .Range("AI3:AI" & lastrow_FinalABC).Value = working
-            ' Column AJ
-            'D2=D1
-            .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_FinalABC)
-            ' Column AK
-            ' =IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A$1:$A$2227,A2,$L$1:$L$2227)-SUMIF(SHEETNAME1!$A$1:$A$52435,A2,SHEETNAME1!$F$1:$F$52435))
-            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-            column_l_FinalABC = Range("L3:L" & lastrow_FinalABC)
-            column_a_SHEETNAME1 = Sheets("SHEETNAME1").Range("A3:A" & lastrow_SHEETNAME1)
-            column_f_SHEETNAME1 = Sheets("SHEETNAME1").Range("F3:F" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_a_FinalABC, column_a_FinalABC(n, 1)) > 1 Then
-                    working(n, 1) = "AGGREGATE"
-                Else
-                    working(n, 1) = ArraySumIf(column_a_FinalABC, column_a_FinalABC(n, 1), column_l_FinalABC) - ArraySumIf(column_a_SHEETNAME1, column_a_FinalABC(n, 1), column_f_SHEETNAME1)
-                End If
-            Next n
-            .Range("AK3:AK" & lastrow_FinalABC).Value = working
-            ' Column AL
-            ' =IF(A2=A1,AL1,IF(AND(AK2>-0.1,AK2<0.1),"MATCHED GROSS AMOUNT ISIN BY MONTH","GROSS AMOUNT NOT MATCHED ISIN BY MONTH"))
-'            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-'            column_aj_FinalABC = Range("AJ3:AJ" & lastrow_FinalABC)
-'            column_ai_FinalABC = Range("AI3:AJ" & lastrow_FinalABC)
-'            For n = LBound(working) To UBound(working)
-'                If column_a_FinalABC(n, 1) = column_a_FinalABC(n - 1, 1) Then
-'                    working(n, 1) = column_aj_FinalABC(n - 1, 1)
-'                Else
-'                    If column_ai_FinalABC(n, 1) > -0.1 And column_ai_FinalABC(n, 1) < 0.1 Then
-'                        working(n, 1) = "MATCHED GROSS AMOUNT ISIN BY MONTH"
-'                    Else
-'                        working(n, 1) = "GROSS AMOUNT NOT MATCHED ISIN BY MONTH"
-'                    End If
-'                End If
-'            Next n
-'
-'            .Range("AM3:AM" & lastrow_FinalABC).Value = working
-            .Range("AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_FinalABC)
-            .Range("AL2:AL" & lastrow_FinalABC).Calculate
-            .Range("AL3:AL" & lastrow_FinalABC) = .Range("AL3:AL" & lastrow_FinalABC).Value
-            ' Column AM
-            ' =IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A$1:$A$2227,A2,$K$1:$K$2227)-SUMIF(SHEETNAME1!$A$1:A$52435,A2,SHEETNAME1!$AO$1:$AO$52435))
-            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-            column_k_FinalABC = Range("K3:K" & lastrow_FinalABC)
-            column_a_SHEETNAME1 = Sheets("SHEETNAME1").Range("A3:A" & lastrow_SHEETNAME1)
-            column_ao_SHEETNAME1 = Sheets("SHEETNAME1").Range("AO3:AO" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_a_FinalABC, column_a_FinalABC(n, 1)) > 1 Then
-                    working(n, 1) = "AGGREGATE"
-                Else
-                    working(n, 1) = ArraySumIf(column_a_FinalABC, column_a_FinalABC(n, 1), column_k_FinalABC) - ArraySumIf(column_a_SHEETNAME1, column_a_FinalABC(n, 1), column_ao_SHEETNAME1)
-                End If
-            Next n
-            .Range("AM3:AM" & lastrow_FinalABC).Value = working
-            ' Column AR
-            ' =IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A$1:$A$2227,A2,$P$1:$P$2227)-SUMIF(SHEETNAME1!$A$1:$A$52435,A2,SHEETNAME1!$J$1:$J$52435))
-            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-            column_p_FinalABC = Range("P3:P" & lastrow_FinalABC)
-            column_a_SHEETNAME1 = Sheets("SHEETNAME1").Range("A3:A" & lastrow_SHEETNAME1)
-            column_j_SHEETNAME1 = Sheets("SHEETNAME1").Range("J3:J" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_a_FinalABC, column_a_FinalABC(n, 1)) > 1 Then
-                    working(n, 1) = "AGGREGATE"
-                Else
-                    working(n, 1) = ArraySumIf(column_a_FinalABC, column_a_FinalABC(n, 1), column_p_FinalABC) - ArraySumIf(column_a_SHEETNAME1, column_a_FinalABC(n, 1), column_j_SHEETNAME1)
-                End If
-            Next n
-            .Range("AR3:AR" & lastrow_FinalABC).Value = working
-            ' Column AS
-            ' =IF(A2=A1,AS1,IF(AND(AR2>-0.1,AR2<0.1),"MATCHED TAX AMOUNT ISIN BY MONTH","TAX AMOUNT NOT MATCHED ISIN BY MONTH"))
-'            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-'            column_aq_FinalABC = Range("AQ3:AQ" & lastrow_FinalABC)
-'            column_ap_FinalABC = Range("AP3:AP" & lastrow_FinalABC)
-'            For n = LBound(working) To UBound(working)
-'                If column_a_FinalABC(n, 1) = column_a_FinalABC(n - 1, 1) Then
-'                    working(n, 1) = column_aq_FinalABC(n - 1, 1)
-'                Else
-'                    If column_ap_FinalABC(n, 1) > -0.1 And column_ap_FinalABC(n, 1) < 0.1 Then
-'                        working(n, 1) = "MATCHED TAX AMOUNT ISIN BY MONTH"
-'                    Else
-'                        working(n, 1) = "TAX AMOUNT NOT MATCHED ISIN BY MONTH"
-'                    End If
-'                End If
-'            Next n
-'
-'            .Range("AS3:AS" & lastrow_FinalABC).Value = working
-            .Range("AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_FinalABC)
-            .Range("AS2:AS" & lastrow_FinalABC).Calculate
-            .Range("AS3:AS" & lastrow_FinalABC) = .Range("AS3:AS" & lastrow_FinalABC).Value
-            ' Column AT
-            ' =IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A$1:$A$2227,A2,$O$1:$O$2227)-SUMIF(SHEETNAME1!$A$1:$A$52435,A2,SHEETNAME1!$I$1:$I$52435))
-            column_a_FinalABC = Range("A3:A" & lastrow_FinalABC)
-            column_o_FinalABC = Range("O3:O" & lastrow_FinalABC)
-            column_a_SHEETNAME1 = Sheets("SHEETNAME1").Range("A3:A" & lastrow_SHEETNAME1)
-            column_i_SHEETNAME1 = Sheets("SHEETNAME1").Range("I3:I" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_a_FinalABC, column_a_FinalABC(n, 1)) > 1 Then
-                    working(n, 1) = "AGGREGATE"
-                Else
-                    working(n, 1) = ArraySumIf(column_a_FinalABC, column_a_FinalABC(n, 1), column_o_FinalABC) - ArraySumIf(column_a_SHEETNAME1, column_a_FinalABC(n, 1), column_i_SHEETNAME1)
-                End If
-            Next n
-            .Range("AT3:AT" & lastrow_FinalABC).Value = working
-        End With
-    End With
-    ' Clear all objects.
-    Set mycell = Nothing
-    Set working = Nothing
-    Set column_a_FinalABC = Nothing
-    Set column_d_FinalABC = Nothing
-    Set column_k_FinalABC = Nothing
-    Set column_l_FinalABC = Nothing
-    Set column_n_FinalABC = Nothing
-    Set column_o_FinalABC = Nothing
-    Set column_p_FinalABC = Nothing
-    Set column_r_FinalABC = Nothing
-    Set column_s_FinalABC = Nothing
-    Set column_ae_FinalABC = Nothing
-    Set column_ak_FinalABC = Nothing
-    Set column_al_FinalABC = Nothing
-    Set column_a_SHEETNAME1 = Nothing
-    Set column_f_SHEETNAME1 = Nothing
-    Set column_i_SHEETNAME1 = Nothing
-    Set column_j_SHEETNAME1 = Nothing
-    Set column_ao_SHEETNAME1 = Nothing
-End Sub
-' Copy pre SHEETNAME1 formula down.
-' Just enough data to allow SHEETNAME1 sheet to be sorted.
-Sub M10500_Copy_Pre_SHEETNAME1_Formulae_Down()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy pre SHEETNAME1 formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy pre-SHEETNAME1 Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Copies formulae down.
-            .Range("A2:B2").AutoFill Destination:=.Range("A2:B" & lastrow_SHEETNAME1)
-            ' Calculations.
-            .Range("A2:B" & lastrow_SHEETNAME1).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("A3:A" & lastrow_SHEETNAME1) = .Range("A3:A" & lastrow_SHEETNAME1).Value
-            .Range("B3:B" & lastrow_SHEETNAME1) = .Range("B3:B" & lastrow_SHEETNAME1).Value
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-End Sub
-' Copy pre SHEETNAME1 formula down using Arrays for speed.
-' Just enough data to allow SHEETNAME1 sheet to be sorted.
-Sub M10505_Copy_Pre_SHEETNAME1_Formulae_Down_array()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_SECT As Long
-    Dim working As Variant
-    Dim column_a As Variant
-    Dim column_b As Variant
-    Dim column_c As Variant
-    Dim column_n As Variant
-    Dim column_a_SECT As Variant
-    Dim column_b_SECT As Variant
-    Dim n As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy pre SHEETNAME1 formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy pre-SHEETNAME1 Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            lastrow_SECT = Sheets("SECT").Cells(Rows.Count, 1).End(xlUp).Row
-            ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-            working = Range("N3:N" & lastrow_SHEETNAME1) ' load with dummy values.
-            ReDim column_a(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_b(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_c(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_n(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_a_SECT(1 To lastrow_SECT, 1)
-            ReDim column_b_SECT(1 To lastrow_SECT, 1)
-            ' Column B
-            '=IFERROR(VLOOKUP(N2,SECT!A$1:B$50021,2,FALSE),"")
-            column_n = Range("N3:N" & lastrow_SHEETNAME1)
-            column_a_SECT = Sheets("SECT").Range("A3:A" & lastrow_SECT)
-            column_b_SECT = Sheets("SECT").Range("B3:B" & lastrow_SECT)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFind(column_a_SECT, column_n(n, 1), column_b_SECT, "")
-            Next n
-            .Range("B3:B" & lastrow_SHEETNAME1).Value = working
-            ' Column A
-            '=B2&" - "&TEXT(C2,"MMM")&" "&YEAR(C2)
-            column_b = Range("B3:B" & lastrow_SHEETNAME1)
-            column_c = Range("C3:C" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = column_b(n, 1) & " - " & WorksheetFunction.Text(column_c(n, 1), "MMM") & " " & Year(column_c(n, 1))
-            Next n
-            .Range("A3:A" & lastrow_SHEETNAME1).Value = working
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set working = Nothing
-    Set column_a = Nothing
-    Set column_b = Nothing
-    Set column_c = Nothing
-    Set column_n = Nothing
-    Set column_a_SECT = Nothing
-    Set column_b_SECT = Nothing
-End Sub
-' Sorts the SHEETNAME1 sheet by Columns A and M in ascending order.
-Sub M10510_Sort_SHEETNAME1_column_A()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Sort SHEETNAME1 column A?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Sort SHEETNAME1...Column A and M"
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Active the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Checks if all ISINs are populated.
-            If WorksheetFunction.CountA(.Columns("B")) <> WorksheetFunction.CountA(.Columns("M")) Then
-                'If MsgBox("There are still missing ISIN's in the SHEETNAME1 sheet, column B. Either run the macro entitled 'find_ISINs' or manually add them.  Do you want to continue sorting?", vbYesNo) = vbNo Then
-                If MsgBox("There are still missing ISIN's in the SHEETNAME1 sheet, column B, which can be manually added in.  Do you want to continue sorting?", vbYesNo) = vbNo Then
-                    Exit Sub
-                End If
-            End If
-            ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("A1:A" & lastrow_SHEETNAME1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                    .Add Key:=Range("N1:N" & lastrow_SHEETNAME1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:BO" & lastrow_SHEETNAME1)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-  End With
-End Sub
-' Updates the formulae on the SHEETNAME1 sheet to only reference the specific number of rows actually loaded into the SHEETNAME1 sheet
-' instead of something like A:A which would reference over 1 million rows and therefore may slow down calculations etc.
-Sub M10520_Update_SHEETNAME1_Formulae()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_SECT As Long
-    Dim lastrow_References As Long
-    Dim lastrow_References_adjusted_rate As Long
-    Dim lastrow_References_g3_location As Long
-    Dim lastrow_References_excemption_code As Long
-    Dim lastrow_References_allowed_locations As Long
-    Dim lastrow_FinalABC As Long
-    Dim lastrow_MappingPivots As Long
-    Dim lastrow_MappingPivots2 As Long
-    Dim lastrow_MappingPivots3 As Long
-    Dim lastrow_Wxxxx As Long
-    Dim lastrow_HOLDINGS As Long
-    Dim lastrow_TRANSACTIONS As Long
-    Dim lastrow_CUST As Long
-    Dim lastrow_QSHEET As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Update SHEETNAME1 formulae?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Update SHEETNAME1 Formulae..."
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        lastrow_SECT = .Sheets("SECT").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_References = .Sheets("References").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_References_adjusted_rate = .Sheets("References").Cells(Rows.Count, 8).End(xlUp).Row
-        lastrow_References_g3_location = .Sheets("References").Cells(Rows.Count, 15).End(xlUp).Row
-        lastrow_References_excemption_code = .Sheets("References").Cells(Rows.Count, 19).End(xlUp).Row
-        lastrow_References_allowed_locations = .Sheets("References").Cells(Rows.Count, 33).End(xlUp).Row
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_HOLDINGS = .Sheets("HOLDINGS").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_MappingPivots = .Sheets("Mapping Pivots").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_MappingPivots2 = .Sheets("Mapping Pivots").Cells(Rows.Count, 6).End(xlUp).Row
-        lastrow_MappingPivots3 = .Sheets("Mapping Pivots").Cells(Rows.Count, 11).End(xlUp).Row
-        lastrow_Wxxxx = .Sheets("Wxxxx").Cells(Rows.Count, 2).End(xlUp).Row
-        lastrow_TRANSACTIONS = .Sheets("TRANSACTIONS").Cells(Rows.Count, 2).End(xlUp).Row
-        lastrow_CUST = .Sheets("CUST").Cells(Rows.Count, 1).End(xlUp).Row
-        lastrow_QSHEET = .Sheets("QSHEET").Cells(Rows.Count, 1).End(xlUp).Row
-        ' Updates formulae on SHEETNAME1.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            .Range("A2").Formula = "=B2&"" - ""&TEXT(C2,""MMM"")&"" ""&YEAR(C2)"
-            .Range("B2").Formula = "=IFERROR(VLOOKUP(N2,SECT!A$1:B$" & lastrow_SECT & ",2,FALSE),"""")"
-            .Range("F2").Formula = "=IF(Y2=""EXCLUDE"",0,G2)"
-            .Range("H2").Formula = "=G2-J2"
-            .Range("J2").Formula = "=IF(K2="""",I2,IF(L2="""",I2,IF(OR(L2=0,K2=0),0,I2/(L2/K2))))"
-            .Range("L2").Formula = "=IF(G2=0,0,I2/G2)"
-            .Range("M2").Formula = "=VLOOKUP(U2,References!A$1:B$" & lastrow_References & ",2,FALSE)"
-            .Range("T2").Formula = "=VLOOKUP(R2,CUST!$A$1:$B$" & lastrow_CUST & ",2,FALSE)"
-            .Range("V2").Formula = "=IF(ISNA(VLOOKUP(B2,FinalABC!$D$1:$D$" & lastrow_FinalABC & ",1,FALSE)),""NON EXIST"",""EXIST"")"
-            .Range("W2").Formula = "=B2=B1"
-            .Range("X2").Formula = "=IF(ISNA(VLOOKUP(A2,FinalABC!A$1:A$" & lastrow_FinalABC & ",1,FALSE)),""NON EXIST"",""EXIST"")"
-            .Range("AB2").Formula = "=IF(OR(X2=""NON EXIST"",Y2=""EXCLUDE""),""NON REPORTABLE"",A2&"" - ""&ROUND(F2,0))"
-            .Range("AC2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$B$" & lastrow_MappingPivots & ",2,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$G$" & lastrow_MappingPivots2 & ",2,FALSE), ""MANUAL INPUT"")))"
-            .Range("AE2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$C$" & lastrow_MappingPivots & ",3,FALSE),IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$H$" & lastrow_MappingPivots2 & ",3,FALSE), ""MANUAL INPUT"")))"
-            .Range("AG2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(COUNTIF($A$2:A2,A2)>1,""AGGREGATE"",ROUND(SUMIF($A$1:$A$" & lastrow_SHEETNAME1 & ",A2,$J$1:$J$" & lastrow_SHEETNAME1 & ")-SUMIF(FinalABC!$A$1:$A$" & lastrow_FinalABC & ",A2,FinalABC!$N$1:$N$" & lastrow_FinalABC & "),2)))"
-            .Range("AH2").Formula = "=IF(AG2=""NON REPORTABLE"",AG2,IF(AND(ROUND(SUMIFS($J$1:$J$" & lastrow_SHEETNAME1 & ",$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,$Y$1:$Y$" & lastrow_SHEETNAME1 & ",""INCLUDE"")-SUMIF(FinalABC!$A$1:$A$" & lastrow_FinalABC & ",A2,FinalABC!$N$1:$N$" & lastrow_FinalABC & "),2)>-1,ROUND(SUMIFS($J$1:$J$" & lastrow_SHEETNAME1 & ",$A$1:$A$" & lastrow_SHEETNAME1 & ",A2,$Y$1:$Y$" & lastrow_SHEETNAME1 & ",""INCLUDE"")-SUMIF(FinalABC!$A$1:$A$" & lastrow_FinalABC & ",A2,FinalABC!$N$1:$N$" & lastrow_FinalABC & "),2)<1),K2,""MANUAL INPUT""))"
-            .Range("AJ2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",ROUND(E2*SUM(AI2/100),2))"
-            .Range("AK2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",SUMIF($A$1:$A$" & lastrow_SHEETNAME1 & ",A2,$AJ$1:$AJ$" & lastrow_SHEETNAME1 & ")-SUMIF(FinalABC!$A$1:$A$" & lastrow_FinalABC & ",A2,FinalABC!$N$1:$N$" & lastrow_FinalABC & "))"
-            .Range("AL2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""), ""NON REPORTABLE"", IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$D$" & lastrow_MappingPivots & ",4,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$I$" & lastrow_MappingPivots2 & ",4,FALSE), ""MANUAL INPUT"")))"
-            .Range("AN2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(A2&"" - ""&AM2,'Mapping Pivots'!$K$4:$M$" & lastrow_MappingPivots & ",2,FALSE),0))"
-            .Range("AO2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(AN2=0,0,F2/AN2))"
-            .Range("AP2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(COUNTIF($A$1:A2,A2)>1,""AGGREGATE"",SUMIF($A$1:$A$" & lastrow_SHEETNAME1 & ",A2,$AO$1:$AO$" & lastrow_SHEETNAME1 & ")-SUMIF(FinalABC!$A$1:$A$" & lastrow_FinalABC & ",A2,FinalABC!$K$1:$K$" & lastrow_FinalABC & ")))"
-            .Range("AQ2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",T2&"" - ""&  IFERROR(IF(VLOOKUP(R2,Wxxxx!$B$1:$Z" & lastrow_Wxxxx & ",24,FALSE)=""YES"", ""VALID"", ""INVALID""),""INVALID"")&"" - "" & IFERROR(VLOOKUP(R2,Wxxxx!$B$1:$Z$" & lastrow_Wxxxx & ",25,FALSE),""N"") &"" - ""&K2)"
-            .Range("AR2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$" & lastrow_References_adjusted_rate & ",2,FALSE),0))"
-            .Range("AS2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$" & lastrow_References_adjusted_rate & ",3,FALSE),0))"
-            .Range("AT2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$" & lastrow_References_adjusted_rate & ",4,FALSE),0))"
-            .Range("AV2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IFERROR(VLOOKUP(AD2&"" - ""&AF2,References!S$1:W$" & lastrow_References_excemption_code & ",3,FALSE),0))"
-            .Range("AW2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(OR(AR2=""NO ADJUSTMENT REQUIRED"",K2=AU2),""NO ADJUSTMENT REQUIRED"",""ADJUST FROM ""&K2&""% TO ""&AU2&""% - BBH REPORTED ""&AI2&""%""))"
-            .Range("AX2").Formula = "=IF(OR($X2=""NON EXIST"",$Y2=""EXCLUDE""),""NON REPORTABLE"",IF(R2=530572,""BPB&T IOM"",IF(T2=""IBGC"",""BPCI"",""BPB&T Jersey"")))"
-            .Range("AY2").Formula = "=IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",ROUND((F2*AU2%)-J2,2)))"
-            .Range("BB2").Formula = "=IF(ISNA(VLOOKUP(U2,References!$AG$1:$AG$" & lastrow_References_allowed_locations & ",1,FALSE)),""NO ADJUSTMENT REQUIRED"",IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IFERROR(VLOOKUP(T2&"" - ""&AU2,References!$O$2:$Q$" & lastrow_References_g3_location & ",3,FALSE),0))))"
-            .Range("BD2").Formula = "=IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IFERROR(VLOOKUP(T2& "" - "" &AU2,References!$O$2:$Q$" & lastrow_References_g3_location & ",2,FALSE),0)))"
-            .Range("BE2").Formula = "=IF(AW2=""NO ADJUSTMENT REQUIRED"",""NO ADJUSTMENT REQUIRED"",IF(AW2=""NON REPORTABLE"",""NON REPORTABLE"",IF(BD2<>M2,""Yes"",""No"")))"
-            .Range("BG2").Formula = "=IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A$1:A$" & lastrow_HOLDINGS & ",1,FALSE)),""NO HOLDINGS"",""STILL HAS HOLDINGS"")"
-            .Range("BH2").Formula = "=IFERROR(VLOOKUP(R2&N2,HOLDINGS!A$1:F$" & lastrow_HOLDINGS & ",6,FALSE), ""NO HOLDINGS"")"
-            .Range("BI2").Formula = "=IF(BH2=""NO HOLDINGS"",""NO HOLDINGS"",IFERROR(VLOOKUP(BH2,References!A$1:B$" & lastrow_References & ",2,FALSE),0))"
-            .Range("BJ2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A$1:L$" & lastrow_TRANSACTIONS & ",12,FALSE),0))"
-            .Range("BK2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A$1:M$" & lastrow_TRANSACTIONS & ",13,FALSE),0))"
-            .Range("BL2").Formula = "=IF(OR(BB2=""NO ADJUSTMENT REQUIRED"",Y2=""EXCLUDE""),""NO ADJUSTMENT REQUIRED"",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,""#.00"")&R2,TRANSACTIONS!A$1:N$" & lastrow_TRANSACTIONS & ",14,FALSE),0))"
-            .Range("BM2").Formula = "=IF(ISNA(VLOOKUP(R2,QSHEET!A$1:A$" & lastrow_QSHEET & ",1,FALSE)),""NOT ON QSHEET"", ""ON QSHEET"")"
-        End With
-    End With
-End Sub
-' Returns the number of vCrit found within the array oArrWithCrit.
-Function ArrayCountIfSequential(oArrWithCrit As Variant, vCrit As Variant)
-    Dim lRow As Long
-    For lRow = LBound(oArrWithCrit, 1) To UBound(oArrWithCrit, 1)
-        If oArrWithCrit(lRow, 1) = vCrit Then
-            ArrayCountIfSequential = ArrayCountIf + 1
-        End If
-    Next
-End Function
-' Binary Search of array.
-' Returns the number of vCrit found within the array oArrWithCrit.
-Function ArrayCountIf(oArrWithCrit As Variant, vCrit As Variant)
-    Dim low As Long
-    low = LBound(oArrWithCrit)
-    Dim high As Long
-    high = UBound(oArrWithCrit)
-    Dim i As Long
-    Dim J As Long
-    Dim result As Boolean
-    ArrayCountIf = 0
-    Do While low <= high
-        i = (low + high) / 2
-        If vCrit = oArrWithCrit(i, 1) Then
-            ArrayCountIf = ArrayCountIf + 1
-            ' Now that found run sequentially while same value
-            J = i - 1
-            i = i + 1
-            Do While (i <= high)
-                If vCrit = oArrWithCrit(i, 1) Then
-                    ArrayCountIf = ArrayCountIf + 1
-                    i = i + 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Do While (J >= low)
-                If vCrit = oArrWithCrit(J, 1) Then
-                    ArrayCountIf = ArrayCountIf + 1
-                    J = J - 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Exit Do
-        ElseIf vCrit < oArrWithCrit(i, 1) Then
-            high = (i - 1)
-        Else
-            low = (i + 1)
-        End If
-    Loop
-End Function
-' Returns the sum of all oArrWithValues for all vCrit found within the array oArrWithCrit.
-Function ArraySumIfSequential(oArrWithCrit As Variant, vCrit As Variant, oArrWithValues As Variant)
-    Dim vArr1 As Variant
-    Dim vArr2 As Variant
-    Dim lRow As Long
-    If (UBound(oArrWithCrit) - LBound(oArrWithCrit)) = (UBound(oArrWithValues) - LBound(oArrWithValues)) Then
-        For lRow = LBound(oArrWithCrit, 1) To UBound(oArrWithCrit, 1)
-            If oArrWithCrit(lRow, 1) = vCrit Then
-                ArraySumIfSequential = ArraySumIfSequential + oArrWithValues(lRow, 1)
-            End If
-        Next
-    Else
-        ArraySumIfSequential = "Criteriarange and sum range must be of same length"
-    End If
-    ' Clear all objects.
-    Set vArr1 = Nothing
-    Set vArr2 = Nothing
-End Function
-' Returns the sum of all oArrWithValues for all vCrit found within the array oArrWithCrit.
-Function ArraySumIf(oArrWithCrit As Variant, vCrit As Variant, oArrWithValues As Variant)
-    Dim low As Long
-    low = LBound(oArrWithCrit)
-    Dim high As Long
-    high = UBound(oArrWithCrit)
-    Dim i As Long
-    Dim J As Long
-    Dim result As Boolean
-    ArraySumIf = 0
-    Do While low <= high
-        i = (low + high) / 2
-        If vCrit = oArrWithCrit(i, 1) Then
-            If IsNumeric(oArrWithValues(i, 1)) Then
-                ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-            End If
-            ' Now that found run sequentially while same value
-            i = i + 1
-            J = J - 1
-            Do While (i <= high)
-                If vCrit = oArrWithCrit(i, 1) Then
-                    If IsNumeric(oArrWithValues(i, 1)) Then
-                        ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-                    End If
-                    i = i + 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Do While (J >= low)
-                If vCrit = oArrWithCrit(J, 1) Then
-                    If IsNumeric(oArrWithValues(i, 1)) Then
-                        ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-                    End If
-                    J = J - 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Exit Do
-        ElseIf vCrit < oArrWithCrit(i, 1) Then
-            high = (i - 1)
-        Else
-            low = (i + 1)
-        End If
-    Loop
-End Function
-' Returns the sum of all oArrWithValues for all vCrit found within the array oArrWithCrit.
-Function ArraySumIfx(oArrWithCrit As Variant, vCrit As Variant, oArrWithValues As Variant)
-    Dim low As Long
-    low = LBound(oArrWithCrit)
-    Dim high As Long
-    high = UBound(oArrWithCrit)
-    Dim i As Long
-    Dim J As Long
-    Dim result As Boolean
-    ArraySumIf = 0
-    Do While low <= high
-        i = (low + high) / 2
-        If vCrit = oArrWithCrit(i, 1) Then
-            ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-            ' Now that found run sequentially while same value
-            i = i + 1
-            J = J - 1
-            Do While (i <= high)
-                If vCrit = oArrWithCrit(i, 1) Then
-                    ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-                    i = i + 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Do While (J >= low)
-                If vCrit = oArrWithCrit(J, 1) Then
-                    ArraySumIf = ArraySumIf + oArrWithValues(i, 1)
-                    J = J - 1
-                Else
-                  Exit Do
-                End If
-            Loop
-            Exit Do
-        ElseIf vCrit < oArrWithCrit(i, 1) Then
-            high = (i - 1)
-        Else
-            low = (i + 1)
-        End If
-    Loop
-End Function
-' Tries to find vCrit within oArrWithCrit.
-' If found then return corresponding oArrWithValues otherwise vDefault.
-Function ArrayFindSequential(oArrWithCrit As Variant, vCrit As Variant, oArrWithValues As Variant, vDefault As Variant)
-    Dim vArr1 As Variant
-    Dim vArr2 As Variant
-    Dim lRow As Long
-    ArrayFindSequential = vDefault
-    If (UBound(oArrWithCrit) - LBound(oArrWithCrit)) = (UBound(oArrWithValues) - LBound(oArrWithValues)) Then
-        For lRow = LBound(oArrWithCrit, 1) To UBound(oArrWithCrit, 1)
-            If oArrWithCrit(lRow, 1) = vCrit Then
-                ArrayFindSequential = oArrWithValues(lRow, 1)
-                Exit Function
-            End If
-        Next
-    Else
-        ArrayFindSequential = "Criteriarange and sum range must be of same length"
-    End If
-    ' Clear all objects.
-    Set vArr1 = Nothing
-    Set vArr2 = Nothing
-End Function
-' Binary Search of array.
-' Tries to find vCrit within oArrWithCrit.
-' If found then return corresponding oArrWithValues otherwise vDefault.
-' Note that due to way that binary search works this may not report on the very 1st instance of that vCrit if this
-' was done sequentially.  It will simply report on the 1st instance found and there may be various oArrWithValues
-' data against the same vCrit.
-Function ArrayFind(oArrWithCrit As Variant, vCrit As Variant, oArrWithValues As Variant, vDefault As Variant)
-    Dim low As Long
-    low = LBound(oArrWithCrit)
-    Dim high As Long
-    high = UBound(oArrWithCrit)
-    Dim i As Long
-    Dim result As Boolean
-    ArrayFind = vDefault
-    Do While low <= high
-        i = (low + high) / 2
-        If vCrit = oArrWithCrit(i, 1) Then
-            ArrayFind = oArrWithValues(i, 1)
-            Exit Do
-        ElseIf vCrit < oArrWithCrit(i, 1) Then
-            high = (i - 1)
-        Else
-            low = (i + 1)
-        End If
-    Loop
-End Function
-' Tries to find vCrit within oArrWithCrit.
-' If found then returns vFoundValue otherwise vNotFoundValue.
-'=ArrayFind(A1:A1000,"Foo",B1:B1000)
-Function ArrayFindSequentialEx(oArrWithCrit As Variant, vCrit As Variant, vFoundValue As Variant, vNotFoundValue As Variant)
-    Dim vArr1 As Variant
-    Dim vArr2 As Variant
-    Dim lRow As Long
-    ArrayFindSequentialEx = vNotFoundValue
-    For lRow = LBound(oArrWithCrit, 1) To UBound(oArrWithCrit, 1)
-        If oArrWithCrit(lRow, 1) = vCrit Then
-            ArrayFindSequentialEx = vFoundValue
-            Exit Function
-        End If
-    Next
-    ' Clear all objects.
-    Set vArr1 = Nothing
-    Set vArr2 = Nothing
-End Function
-' Tries to find vCrit within oArrWithCrit.
-' If found then returns vFoundValue otherwise vNotFoundValue.
-' Note that due to way that binary search works this may not report on the very 1st instance of that vCrit if this
-' was done sequentially.  It will simply report on the 1st instance found and there may be various oArrWithValues
-' data against the same vCrit.
-Function ArrayFindEx(oArrWithCrit As Variant, vCrit As Variant, vFoundValue As Variant, vNotFoundValue As Variant)
-    Dim low As Long
-    low = LBound(oArrWithCrit)
-    Dim high As Long
-    high = UBound(oArrWithCrit)
-    Dim i As Long
-    Dim result As Boolean
-    ArrayFindEx = vNotFoundValue
-    Do While low <= high
-        i = (low + high) / 2
-        If vCrit = oArrWithCrit(i, 1) Then
-            ArrayFindEx = vFoundValue
-            Exit Do
-        ElseIf vCrit < oArrWithCrit(i, 1) Then
-            high = (i - 1)
-        Else
-            low = (i + 1)
-        End If
-    Loop
-End Function
-'=ArrayCountIf(A1:A1000,"Foo",B1:B1000)
-Function RangeCountIf(oRngWithCrit As Range, vCrit As Variant)
-    Dim vArr1 As Variant
-    Dim lRow As Long
-    vArr1 = oRngWithCrit.Value
-    For lRow = LBound(vArr1, 1) To UBound(vArr1, 1)
-        If vArr1(lRow, 1) = vCrit Then
-            RangeCountIf = RangeCountIf + 1
-        End If
-    Next
-    ' Clear all objects.
-    Set vArr1 = Nothing
-End Function
-'=ArraySumIf(A1:A1000,"Foo",B1:B1000)
-Function RangeSumIf(oRngWithCrit As Range, vCrit As Variant, oRngWithValues As Range)
-    Dim vArr1 As Variant
-    Dim vArr2 As Variant
-    Dim lRow As Long
-    If oRngWithCrit.Rows.Count = oRngWithValues.Rows.Count Then
-        vArr1 = oRngWithCrit.Value
-        vArr2 = oRngWithValues.Value
-        For lRow = LBound(vArr1, 1) To UBound(vArr1, 1)
-            If vArr1(lRow, 1) = vCrit Then
-                RangeSumIf = ArraySumIf + vArr2(lRow, 1)
-            End If
-        Next
-    Else
-        RangeSumIf = "Criteriarange and sum range must be of same length"
-    End If
-    ' Clear all objects.
-    Set vArr1 = Nothing
-    Set vArr2 = Nothing
-End Function
-' Speedy - copies using arrays.
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub M10535_Copy_Post_SHEETNAME1_Formulae_Down_Array()
-    Dim lastrow_CUST As Long
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim lastrow_HOLDINGS As Long
-    Dim lastrow_MappingPivots As Long
-    Dim lastrow_MappingPivots2 As Long
-    Dim lastrow_MappingPivots3 As Long
-    Dim lastrow_References As Long
-    Dim lastrow_References_adjusted_rate As Long
-    Dim lastrow_References_g3_location As Long
-    Dim lastrow_References_income_type As Long
-    Dim lastrow_References_allowed_locations As Long
-    Dim lastrow_QSHEET As Long
-    Dim lastrow_TRANSACTIONS As Long
-    Dim lastrow_Wxxxx As Long
-    Dim column_a As Variant
-    Dim column_b As Variant
-    Dim column_e As Variant
-    Dim column_f As Variant
-    Dim column_g As Variant
-    Dim column_h As Variant
-    Dim column_i As Variant
-    Dim column_k As Variant
-    Dim column_l As Variant
-    Dim column_m As Variant
-    Dim column_n As Variant
-    Dim column_p As Variant
-    Dim column_r As Variant
-    Dim column_t As Variant
-    Dim column_u As Variant
-    Dim column_x As Variant
-    Dim column_y As Variant
-    Dim column_ab As Variant
-    Dim column_ad As Variant
-    Dim column_af As Variant
-    Dim column_ai As Variant
-    Dim column_aj As Variant
-    Dim column_am As Variant
-    Dim column_an As Variant
-    Dim column_ao As Variant
-    Dim column_aq As Variant
-    Dim column_ar As Variant
-    Dim column_au As Variant
-    Dim column_aw As Variant
-    Dim column_bb As Variant
-    Dim column_bd As Variant
-    Dim column_bh As Variant
-    Dim column_a_CUST As Variant
-    Dim column_b_CUST As Variant
-    Dim column_a_FinalABC As Variant
-    Dim column_d_FinalABC As Variant
-    Dim column_k_FinalABC As Variant
-    Dim column_n_FinalABC As Variant
-    Dim column_a_HOLDINGS As Variant
-    Dim column_f_HOLDINGS As Variant
-    Dim column_a_MappingPivots As Variant
-    Dim column_b_MappingPivots As Variant
-    Dim column_c_MappingPivots As Variant
-    Dim column_d_MappingPivots As Variant
-    Dim column_f_MappingPivots As Variant
-    Dim column_g_MappingPivots As Variant
-    Dim column_h_MappingPivots As Variant
-    Dim column_i_MappingPivots As Variant
-    Dim column_k_MappingPivots As Variant
-    Dim column_m_MappingPivots As Variant
-    Dim column_a_QSHEET As Variant
-    Dim column_a_References As Variant
-    Dim column_b_References As Variant
-    Dim column_h_References As Variant
-    Dim column_i_References As Variant
-    Dim column_j_References As Variant
-    Dim column_k_References As Variant
-    Dim column_o_References As Variant
-    Dim column_p_References As Variant
-    Dim column_q_References As Variant
-    Dim column_s_References As Variant
-    Dim column_u_References As Variant
-    Dim column_ag_References As Variant
-    Dim column_a_TRANSACTIONS As Variant
-    Dim column_l_TRANSACTIONS As Variant
-    Dim column_m_TRANSACTIONS As Variant
-    Dim column_n_TRANSACTIONS As Variant
-    Dim column_b_Wxxxx As Variant
-    Dim column_y_Wxxxx As Variant
-    Dim column_z_Wxxxx As Variant
-    Dim prev_a As Variant
-    Dim prev_b As Variant
-    Dim prev_c As Variant
-    Dim prev_d As Variant
-    Dim prev_f As Variant
-    Dim prev_g As Variant
-    Dim prev_h As Variant
-    Dim prev_i As Variant
-    Dim tmp As Variant
-    Dim working As Variant
-    Dim n As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy Post SHEETNAME1 formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy post-SHEETNAME1 Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the SHEETNAME1 sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            lastrow_CUST = Sheets("CUST").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_FinalABC = Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-            lastrow_HOLDINGS = Sheets("HOLDINGS").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_MappingPivots = Sheets("Mapping Pivots").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_MappingPivots2 = Sheets("Mapping Pivots").Cells(Rows.Count, 6).End(xlUp).Row
-            lastrow_MappingPivots3 = Sheets("Mapping Pivots").Cells(Rows.Count, 11).End(xlUp).Row
-            lastrow_References = Sheets("References").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_References_adjusted_rate = Sheets("References").Cells(Rows.Count, 8).End(xlUp).Row
-            lastrow_References_g3_location = Sheets("References").Cells(Rows.Count, 15).End(xlUp).Row
-            lastrow_References_income_type = Sheets("References").Cells(Rows.Count, 19).End(xlUp).Row
-            lastrow_References_allowed_locations = Sheets("References").Cells(Rows.Count, 33).End(xlUp).Row
-            lastrow_QSHEET = Sheets("QSHEET").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_TRANSACTIONS = Sheets("TRANSACTIONS").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_Wxxxx = Sheets("Wxxxx").Cells(Rows.Count, 2).End(xlUp).Row
-            ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-            working = Range("D3:D" & lastrow_SHEETNAME1) ' load with dummy values.
-            ReDim column_a(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_b(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_e(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_f(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_g(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_h(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_i(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_l(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_m(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_n(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_p(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_r(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_t(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_u(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_x(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ab(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aj(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_an(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ao(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aq(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ar(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aw(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_bd(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_bh(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_a_CUST(1 To lastrow_CUST, 1)
-            ReDim column_b_CUST(1 To lastrow_CUST, 1)
-            ReDim column_a_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_d_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_k_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_n_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_a_HOLDINGS(1 To lastrow_HOLDINGS, 1)
-            ReDim column_f_HOLDINGS(1 To lastrow_HOLDINGS, 1)
-            ReDim column_a_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_b_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_c_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_d_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_f_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_g_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_h_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_i_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_m_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_k_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_a_References(1 To lastrow_References, 1)
-            ReDim column_b_References(1 To lastrow_References, 1)
-            ReDim column_h_References(1 To lastrow_References, 1)
-            ReDim column_i_References(1 To lastrow_References, 1)
-            ReDim column_j_References(1 To lastrow_References, 1)
-            ReDim column_k_References(1 To lastrow_References, 1)
-            ReDim column_o_References(1 To lastrow_References, 1)
-            ReDim column_p_References(1 To lastrow_References, 1)
-            ReDim column_q_References(1 To lastrow_References, 1)
-            ReDim column_s_References(1 To lastrow_References, 1)
-            ReDim column_u_References(1 To lastrow_References, 1)
-            ReDim column_ag_References(1 To lastrow_References, 1)
-            ReDim column_a_QSHEET(1 To lastrow_QSHEET, 1)
-            ReDim column_a_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_l_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_m_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_n_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_b_Wxxxx(1 To lastrow_Wxxxx, 1)
-            ReDim column_y_Wxxxx(1 To lastrow_Wxxxx, 1)
-            ReDim column_z_Wxxxx(1 To lastrow_Wxxxx, 1)
-            ' Column F
-            ' =IF(X2="EXCLUDE",0,G2)
-            column_g = Range("G3:G" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = 0
-                Else
-                    working(n, 1) = column_g(n, 1)
-                End If
-            Next n
-            .Range("F3:F" & lastrow_SHEETNAME1).Value = working
-            ' Column H
-            ' =G2-I2
-            column_g = Range("G3:G" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = column_g(n, 1) - column_i(n, 1)
-            Next n
-            .Range("H3:H" & lastrow_SHEETNAME1).Value = working
-            ' Column J
-            ' =IF(K2="",I2,IF(L2="",I2,IF(OR(L2=0,K2=0),0,I2/(L2/K2))))
-            column_k = Range("K3:K" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            column_l = Range("L3:L" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If column_k(n, 1) = "" Or column_k(n, 1) = 0 Then
-                    working(n, 1) = column_i(n, 1)
-                Else
-                    If column_l(n, 1) = "" Or column_l(n, 1) = 0 Then
-                        working(n, 1) = column_i(n, 1)
-                    Else
-                        working(n, 1) = column_i(n, 1) / (column_l(n, 1) / column_k(n, 1))
-                    End If
-                End If
-            Next n
-            .Range("J3:J" & lastrow_SHEETNAME1).Value = working
-            ' Column L
-            ' =IF(G2=0,0,I2/G2)
-            column_g = Range("G3:G" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If column_g(n, 1) = 0 Then ' Cant SHEETNAME1de by zero.
-                    working(n, 1) = 0
-                Else
-                    working(n, 1) = column_i(n, 1) / column_g(n, 1)
-                End If
-            Next n
-            .Range("L3:L" & lastrow_SHEETNAME1).Value = working
-            ' Column M
-            ' =VLOOKUP(U2,References!A$1:B$198,2,FALSE)
-            column_a_References = Sheets("References").Range("A3:A" & lastrow_References)
-            column_u = Range("U3:U" & lastrow_SHEETNAME1)
-            column_b_References = Sheets("References").Range("B3:B" & lastrow_References)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFind(column_a_References, column_u(n, 1), column_b_References, 0)
-            Next n
-            .Range("M3:M" & lastrow_SHEETNAME1).Value = working
-            ' Column T
-            ' =VLOOKUP(R2,CUST!$A$1:$B$26608,2,FALSE)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_CUST = Sheets("CUST").Range("A3:A" & lastrow_CUST)
-            column_b_CUST = Sheets("CUST").Range("B3:B" & lastrow_CUST)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFind(column_a_CUST, column_r(n, 1), column_b_CUST, "")
-            Next n
-            .Range("T3:T" & lastrow_SHEETNAME1).Value = working
-            ' Column V
-            ' =IF(ISNA(VLOOKUP(B2,FinalABC!$D$1:$D$2227,1,FALSE)),"NON EXIST","EXIST")
-            column_b = Range("B3:B" & lastrow_SHEETNAME1)
-            column_d_FinalABC = Sheets("FinalABC").Range("D3:D" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_d_FinalABC, column_b(n, 1), "EXIST", "NON EXIST")
-            Next n
-            .Range("V3:V" & lastrow_SHEETNAME1).Value = working
-            ' Column W
-            ' =B2=B1
-            .Range("W2:W2").AutoFill Destination:=.Range("W2:W" & lastrow_SHEETNAME1)
-            .Range("W2:W" & lastrow_SHEETNAME1).Calculate
-            .Range("W3:W" & lastrow_SHEETNAME1) = .Range("W3:W" & lastrow_SHEETNAME1).Value
-'            For n = LBound(working) To UBound(working)
-'                If (n > 1) Then
-'                    working(n, 1) = column_b(n, 1) = column_b(n - 1, 1)
-'                End If
-'            Next n
-'            .range("W3:W" & lastrow_SHEETNAME1).Value = working
-            ' Column X
-            ' =IF(ISNA(VLOOKUP(A2,FinalABC!A$1:A$2227,1,FALSE)),"NON EXIST","EXIST")
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_a_FinalABC, column_a(n, 1), "EXIST", "NON EXIST")
-            Next n
-            .Range("X3:X" & lastrow_SHEETNAME1).Value = working
-            ' Column AB
-            ' =IF(OR(X2="NON EXIST",Y2="EXCLUDE"),"NON REPORTABLE",A2&" - "&ROUND(F2,0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = column_a(n, 1) & " - " & Round(column_f(n, 1), 0)
-                End If
-            Next n
-            .Range("AB3:AB" & lastrow_SHEETNAME1).Value = working
-            ' Column AC
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$B$1458,2,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$G$2230,2,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_b_MappingPivots = Sheets("Mapping Pivots").Range("B4:B" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_g_MappingPivots = Sheets("Mapping Pivots").Range("G4:G" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_b = column_b_MappingPivots(LBound(column_b_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_b_MappingPivots(n, 1) = "" Then
-                    column_b_MappingPivots(n, 1) = prev_b
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_b = column_b_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_g = column_g_MappingPivots(LBound(column_g_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_g_MappingPivots(n, 1) = "" Then
-                    column_g_MappingPivots(n, 1) = prev_g
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_g = column_g_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_b_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_g_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AC3:AC" & lastrow_SHEETNAME1).Value = working
-'            .Range("AC2:AC2").AutoFill Destination:=.Range("AC2:AC" & lastrow_SHEETNAME1)
-'            .Range("AC2:AC" & lastrow_SHEETNAME1).Calculate
-'            .Range("AC3:AC" & lastrow_SHEETNAME1) = .Range("AC3:AC" & lastrow_SHEETNAME1).Value
-            ' Column AE
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$C$1458,3,FALSE),IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$H$2230,3,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_c_MappingPivots = Sheets("Mapping Pivots").Range("C4:C" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_h_MappingPivots = Sheets("Mapping Pivots").Range("H4:H" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_c = column_c_MappingPivots(LBound(column_c_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_c_MappingPivots(n, 1) = "" Then
-                    column_c_MappingPivots(n, 1) = prev_c
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_c = column_c_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_h = column_h_MappingPivots(LBound(column_h_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_h_MappingPivots(n, 1) = "" Then
-                    column_h_MappingPivots(n, 1) = prev_h
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_h = column_h_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_c_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_h_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AE3:AE" & lastrow_SHEETNAME1).Value = working
-            ' Column AG
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",ROUND(SUMIF($A$1:$A$52435,A2,$I$1:$I$52435)-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a, column_a(n, 1)) > 1 Then
-                        working(n, 1) = "AGGREGATE"
-                    Else
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_i) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                    End If
-                End If
-            Next n
-            .Range("AG3:AG" & lastrow_SHEETNAME1).Value = working
-            ' Column AH
-            ' =IF(AG2="NON REPORTABLE",AG2,IF(AND(ROUND(SUMIFS($I$1:$I$52435,$A$1:$A$52435,A2,$Y$1:$Y$52435,"INCLUDE")-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)>-1,ROUND(SUMIFS($I$1:$I$52435,$A$1:$A$52435,A2,$Y$1:$Y$52435,"INCLUDE")-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)<1),K2,"MANUAL INPUT"))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                'If working(n, 1) = "NON REPORTABLE" Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_y(n, 1) = "INCLUDE") Then
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_i) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                        If ((working(n, 1) > -1) Or (working(n, 1) < 1)) Then
-                            working(n, 1) = column_k(n, 1)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    Else
-                        working(n, 1) = "MANUAL INPUT"
-                    End If
-                End If
-            Next n
-            .Range("AH3:AH" & lastrow_SHEETNAME1).Value = working
-            ' Copy adjustment data.
-'zzzz            .Range("AI2:AI" & lastrow_SHEETNAME1) = .Range("AH2:AH" & lastrow_SHEETNAME1).Value
-            ' Column AJ
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",ROUND(E2*SUM(AI2/100),2))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_e = Range("E3:E" & lastrow_SHEETNAME1)
-            column_ai = Range("AI3:AI" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If IsNumeric(column_ai(n, 1)) Then ' To cater for "Manual Input" in column AH.
-                        working(n, 1) = Round(column_e(n, 1) * column_ai(n, 1) / 100, 2)
-                    Else
-                        working(n, 1) = 0
-                    End If
-                End If
-            Next n
-            .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value = working
-            ' Column AK
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",SUMIF($A$1:$A$52435,A2,$AJ$1:$AJ$52435)-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_aj = Range("AJ3:AJ" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    'working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_aj) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                    working(n, 1) = ArraySumIf(column_a, column_a(n, 1), column_aj) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC)
-                End If
-            Next n
-            .Range("AK3:AK" & lastrow_SHEETNAME1).Value = working
-            ' Column AL
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"), "NON REPORTABLE", IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$D$1458,4,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$I$2230,4,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_d_MappingPivots = Sheets("Mapping Pivots").Range("D4:D" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_i_MappingPivots = Sheets("Mapping Pivots").Range("I4:I" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_d = column_d_MappingPivots(LBound(column_d_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_d_MappingPivots(n, 1) = "" Then
-                    column_d_MappingPivots(n, 1) = prev_d
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_d = column_d_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_i = column_i_MappingPivots(LBound(column_i_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_i_MappingPivots(n, 1) = "" Then
-                    column_i_MappingPivots(n, 1) = prev_i
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_i = column_i_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_d_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_i_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AL3:AL" & lastrow_SHEETNAME1).Value = working
-'            .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_SHEETNAME1)
-'            .Range("AL2:AL" & lastrow_SHEETNAME1).Calculate
-'            .Range("AL3:AL" & lastrow_SHEETNAME1) = .Range("AL3:AL" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AM2:AM" & lastrow_SHEETNAME1) = .Range("AL2:AL" & lastrow_SHEETNAME1).Value
-            ' Column AN
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(A2&" - "&AM2,'Mapping Pivots'!$K$4:$M$1458,2,FALSE), 0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_am = Range("AM3:AM" & lastrow_SHEETNAME1)
-            column_k_MappingPivots = Sheets("Mapping Pivots").Range("K4:K" & lastrow_MappingPivots3)
-            column_m_MappingPivots = Sheets("Mapping Pivots").Range("M4:M" & lastrow_MappingPivots3)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_k_MappingPivots, column_a(n, 1) & " - " & column_am(n, 1), column_m_MappingPivots, 0)
-                End If
-            Next n
-            .Range("AN3:AN" & lastrow_SHEETNAME1).Value = working
-'            .Range("AN2:AN2").AutoFill Destination:=.Range("AN2:AN" & lastrow_SHEETNAME1)
-'            .Range("AN2:AN" & lastrow_SHEETNAME1).Calculate
-'            .Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            ' Column AO
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",F2/AN2)
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            column_an = Range("AN3:AN" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_an(n, 1) = 0) Then   ' Can't SHEETNAME1de by zero.
-                        working(n, 1) = 0
-                    Else
-                        working(n, 1) = column_f(n, 1) / column_an(n, 1)
-                    End If
-                End If
-            Next n
-            .Range("AO3:AO" & lastrow_SHEETNAME1).Value = working
-            ' Column AP
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A:$A,A2,$AO:$AO)-SUMIF(FinalABC!$A:$A,A2,FinalABC!$K:$K)))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ao = Range("AO3:AO" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_k_FinalABC = Sheets("FinalABC").Range("K3:K" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a, column_a(n, 1)) > 1 Then
-                        working(n, 1) = "AGGREGATE"
-                    Else
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_ao) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_k_FinalABC), 2)
-                    End If
-                End If
-            Next n
-            .Range("AP3:AP" & lastrow_SHEETNAME1).Value = working
-            ' Column AQ
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",T2&" - "&  IFERROR(IF(VLOOKUP(R2,Wxxxx!B:Z,24,FALSE)="YES", "VALID", "INVALID"),"INVALID")&" - " & IFERROR(VLOOKUP(R2,Wxxxx!B:Z,25,FALSE),"N") &" - "&K2)
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            column_u = Range("U3:U" & lastrow_SHEETNAME1)
-            column_b_Wxxxx = Sheets("Wxxxx").Range("B3:B" & lastrow_Wxxxx)
-            column_y_Wxxxx = Sheets("Wxxxx").Range("Y3:Y" & lastrow_Wxxxx)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_z_Wxxxx = Sheets("Wxxxx").Range("Z3:Z" & lastrow_Wxxxx)
-            column_k = Range("K3:K" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = column_t(n, 1) & " - "
-                    tmp = ArrayFind(column_b_Wxxxx, column_r(n, 1), column_y_Wxxxx, 0)
-                    If tmp = "YES" Then
-                        working(n, 1) = working(n, 1) & "VALID" & " - "
-                    Else
-                        working(n, 1) = working(n, 1) & "INVALID" & " - "
-                    End If
-                    tmp = ArrayFind(column_b_Wxxxx, column_r(n, 1), column_z_Wxxxx, "N")
-                    working(n, 1) = working(n, 1) & tmp & " - " & column_k(n, 1)
-                End If
-            Next n
-            .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value = working
-'            .Range("AQ2:AQ2").AutoFill Destination:=.Range("AQ2:AQ" & lastrow_SHEETNAME1)
-'            .Range("AQ2:AQ" & lastrow_SHEETNAME1).Calculate
-'            .Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            ' Column AR
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,2,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_i_References = Sheets("References").Range("I3:I" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_i_References, 0)
-                End If
-            Next n
-            .Range("AR3:AR" & lastrow_SHEETNAME1).Value = working
-'            .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_SHEETNAME1)
-'            .Range("AR2:AR" & lastrow_SHEETNAME1).Calculate
-'            .Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            ' Column AS
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,3,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_j_References = Sheets("References").Range("J3:J" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_j_References, 0)
-                End If
-            Next n
-            .Range("AS3:AS" & lastrow_SHEETNAME1).Value = working
-'            .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_SHEETNAME1)
-'            .Range("AS2:AS" & lastrow_SHEETNAME1).Calculate
-'            .Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            ' Column AT
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,4,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_k_References = Sheets("References").Range("K3:K" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_k_References, 0)
-                End If
-            Next n
-            .Range("AT3:AT" & lastrow_SHEETNAME1).Value = working
-'            .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_SHEETNAME1)
-'            .Range("AT2:AT" & lastrow_SHEETNAME1).Calculate
-'            .Range("AT3:AT" & lastrow_SHEETNAME1) = .Range("AT3:AT" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AU2:AU" & lastrow_SHEETNAME1) = .Range("AT2:AT" & lastrow_SHEETNAME1).Value
-            ' Column AV
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AD2&" - "&AF2,References!S:W,3,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_ad = Range("AD3:AD" & lastrow_SHEETNAME1)
-            column_af = Range("AF3:AF" & lastrow_SHEETNAME1)
-            column_s_References = Sheets("References").Range("S3:S" & lastrow_References_income_type)
-            column_u_References = Sheets("References").Range("U3:U" & lastrow_References_income_type)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_s_References, column_ad(n, 1) & " - " & column_af(n, 1), column_u_References, 0)
-                End If
-            Next n
-            .Range("AV3:AV" & lastrow_SHEETNAME1).Value = working
-'            .Range("AV2:AV2").AutoFill Destination:=.Range("AV2:AV" & lastrow_SHEETNAME1)
-'            .Range("AV2:AV" & lastrow_SHEETNAME1).Calculate
-'            .Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            ' Column AW
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(OR(AR2="NO ADJUSTMENT REQUIRED",K2=AU2),"NO ADJUSTMENT REQUIRED","ADJUST FROM "&K2&"% TO "&AU2&"% - BBH REPORTED "&AI2&"%"))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_ar = Range("AR3:AR" & lastrow_SHEETNAME1)
-            column_k = Range("K3:K" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_ai = Range("AI3:AI" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_ar(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_k(n, 1) = column_au(n, 1)) Then
-                        working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                    Else
-                        working(n, 1) = "ADJUST FROM " & column_k(n, 1) & "% TO " & column_au(n, 1) & "% - BBH REPORTED " & column_ai(n, 1) & "%"
-                    End If
-                End If
-            Next n
-            .Range("AW3:AW" & lastrow_SHEETNAME1).Value = working
-            ' Column AX
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(R2=530572,"BPB&T IOM",IF(T2="IBGC","BPCI","BPB&T Jersey")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_r(n, 1) = 530572) Then
-                        working(n, 1) = "BPB&T IOM"
-                    Else
-                        If (column_t(n, 1) = "IBGC") Then
-                            working(n, 1) = "BPCI"
-                        Else
-                            working(n, 1) = "BPB&T Jersey"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AX3:AX" & lastrow_SHEETNAME1).Value = working
-            ' Column AY
-            ' =IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",ROUND((F2*AU2%)-I2,2)))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        working(n, 1) = Round((column_f(n, 1) * column_au(n, 1) / 100) - column_i(n, 1), 2)
-                    End If
-                End If
-            Next n
-            .Range("AY3:AY" & lastrow_SHEETNAME1).Value = working
-            ' Column BB
-            ' =IF(ISNA(VLOOKUP(U2,References!$AG:$AG,1,FALSE)),"NO ADJUSTMENT REQUIRED",IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IFERROR(VLOOKUP(T2&" - "&AU2,References!$O$2:$Q$5,3,FALSE),0))))
-            column_u = Range("U3:U" & lastrow_SHEETNAME1)
-            column_ag_References = Sheets("References").Range("AG3:AG" & lastrow_References_allowed_locations)
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_o_References = Sheets("References").Range("O3:O" & lastrow_References_g3_location)
-            column_q_References = Sheets("References").Range("Q3:Q" & lastrow_References_g3_location)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_ag_References, column_u(n, 1)) > 0 Then
-                    If column_aw(n, 1) = "NO ADJUSTMENT REQUIRED" Then
-                        working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                    Else
-                        If column_aw(n, 1) = "NON REPORTABLE" Then
-                            working(n, 1) = "NON REPORTABLE"
-                        Else
-                            working(n, 1) = ArrayFind(column_o_References, column_t(n, 1) & " - " & column_au(n, 1), column_q_References, 0)
-                        End If
-                    End If
-                    'working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_an) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_k_FinalABC), 2)
-                Else
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                End If
-            Next n
-            .Range("BB3:BB" & lastrow_SHEETNAME1).Value = working
-'            .Range("BB2:BB2").AutoFill Destination:=.Range("BB2:BB" & lastrow_SHEETNAME1)
-'            .Range("BB2:BB" & lastrow_SHEETNAME1).Calculate
-'            .Range("BB3:BB" & lastrow_SHEETNAME1) = .Range("BB3:BB" & lastrow_SHEETNAME1).Value
-            ' Column BD
-            ' =IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IFERROR(VLOOKUP(T2& " - " &AU2,References!$O$2:$Q$5,2,FALSE),0)))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_o_References = Sheets("References").Range("O3:O" & lastrow_References_g3_location)
-            column_p_References = Sheets("References").Range("P3:P" & lastrow_References_g3_location)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        working(n, 1) = ArrayFind(column_o_References, column_t(n, 1) & " - " & column_au(n, 1), column_p_References, 0)
-                    End If
-                End If
-            Next n
-            .Range("BD3:BD" & lastrow_SHEETNAME1).Value = working
-'            .Range("BD2:BD2").AutoFill Destination:=.Range("BD2:BD" & lastrow_SHEETNAME1)
-'            .Range("BD2:BD" & lastrow_SHEETNAME1).Calculate
-'            .Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            ' Column BE
-            '=IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IF(BD2<>M2,"Yes","No")))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_bd = Range("BD3:BD" & lastrow_SHEETNAME1)
-            column_m = Range("M3:M" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        If (column_bd(n, 1) <> column_m(n, 1)) Then
-                            working(n, 1) = "Yes"
-                        Else
-                            working(n, 1) = "No"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("BE3:BE" & lastrow_SHEETNAME1).Value = working
-            ' Column BG
-            ' =IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A:A,1,FALSE)),"NO HOLDINGS","STILL HAS HOLDINGS")
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_n = Range("N3:N" & lastrow_SHEETNAME1)
-            column_a_HOLDINGS = Sheets("HOLDINGS").Range("A3:A" & lastrow_HOLDINGS)
-            For n = LBound(working) To UBound(working)
-                'working(n, 1) = ArrayFind(column_a_HOLDINGS, column_r(n, 1) & column_n(n, 1), column_a_HOLDINGS, 0)
-                working(n, 1) = ArrayFindEx(column_a_HOLDINGS, column_r(n, 1) & column_n(n, 1), "STILL HAS HOLDINGS", "NO HOLDINGS")
-            Next n
-            .Range("BG3:BG" & lastrow_SHEETNAME1).Value = working
-'            .Range("BG2:BG2").AutoFill Destination:=.Range("BF2:BF" & lastrow_SHEETNAME1)
-'            .Range("BG2:BG" & lastrow_SHEETNAME1).Calculate
-'            .Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BF3:BF" & lastrow_SHEETNAME1).Value
-            ' Column BH
-            '=IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A:G,7,FALSE)),"NO HOLDINGS",VLOOKUP(R2&N2,HOLDINGS!A:G,7,FALSE))
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_n = Range("N3:N" & lastrow_SHEETNAME1)
-            column_a_HOLDINGS = Sheets("HOLDINGS").Range("A3:A" & lastrow_HOLDINGS)
-            column_f_HOLDINGS = Sheets("HOLDINGS").Range("F3:F" & lastrow_HOLDINGS)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFind(column_a_HOLDINGS, column_r(n, 1) & column_n(n, 1), column_f_HOLDINGS, "NO HOLDINGS")
-            Next n
-            .Range("BH3:BH" & lastrow_SHEETNAME1).Value = working
-'            .Range("BH2:BH2").AutoFill Destination:=.Range("BH2:BH" & lastrow_SHEETNAME1)
-'            .Range("BH2:BH" & lastrow_SHEETNAME1).Calculate
-'            .Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            ' Column BI
-            ' =IF(BH2="NO HOLDINGS","NO HOLDINGS",VLOOKUP(BH2,References!A:B,2,FALSE))
-            column_bh = Range("BH3:BH" & lastrow_SHEETNAME1)
-            column_a_References = Sheets("References").Range("A3:A" & lastrow_References)
-            column_b_References = Sheets("References").Range("B3:B" & lastrow_References)
-            For n = LBound(working) To UBound(working)
-                If column_bh(n, 1) = "NO HOLDINGS" Then
-                    working(n, 1) = "NO HOLDINGS"
-                Else
-                    working(n, 1) = ArrayFind(column_a_References, column_bh(n, 1), column_b_References, 0)
-                End If
-            Next n
-            .Range("BI3:BI" & lastrow_SHEETNAME1).Value = working
-'            .Range("BI2:BI2").AutoFill Destination:=.Range("BI2:BI" & lastrow_SHEETNAME1)
-'            .Range("BI2:BI" & lastrow_SHEETNAME1).Calculate
-'            .Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            ' Column BJ
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,"#.00")&R2,TRANSACTIONS!A:L,12,FALSE),0))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_l_TRANSACTIONS = Sheets("TRANSACTIONS").Range("L3:L" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_l_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value = working
-'            .Range("BJ2:BJ2").AutoFill Destination:=.Range("BJ2:BJ" & lastrow_SHEETNAME1)
-'            .Range("BJ2:BJ" & lastrow_SHEETNAME1).Calculate
-'            .Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            ' Column BK
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",VLOOKUP(LEFT(P2,6)&Text(H2,"#.00")&R2,TRANSACTIONS!A:M,13,FALSE))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_m_TRANSACTIONS = Sheets("TRANSACTIONS").Range("M3:M" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_m_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BK3:BK" & lastrow_SHEETNAME1).Value = working
-'            .Range("BK2:BK2").AutoFill Destination:=.Range("BK2:BK" & lastrow_SHEETNAME1)
-'            .Range("BK2:BK" & lastrow_SHEETNAME1).Calculate
-'            .Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            ' Column BL
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",VLOOKUP(LEFT(P2,6)&Text(H2,"#.00")&R2,TRANSACTIONS!A:N,14,FALSE))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_n_TRANSACTIONS = Sheets("TRANSACTIONS").Range("N3:N" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_n_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BL3:BL" & lastrow_SHEETNAME1).Value = working
-'            .Range("BL2:BL2").AutoFill Destination:=.Range("BL2:BL" & lastrow_SHEETNAME1)
-'            .Range("BL2:BL" & lastrow_SHEETNAME1).Calculate
-'            .Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            ' Column BM
-            ' =IF(ISNA(VLOOKUP(R2,QSHEET!A:A,1,FALSE)),"NOT ON QSHEET", "ON QSHEET")
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_QSHEET = Sheets("QSHEET").Range("A3:A" & lastrow_QSHEET)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_a_QSHEET, column_r(n, 1), "ON QSHEET", "NOT ON QSHEET")
-            Next n
-            .Range("BM3:BM" & lastrow_SHEETNAME1).Value = working
-'            .Range("BM2:BM2").AutoFill Destination:=.Range("BM2:BM" & lastrow_SHEETNAME1)
-'            .Range("BM2:BM" & lastrow_SHEETNAME1).Calculate
-'            .Range("BM3:BM" & lastrow_SHEETNAME1) = .Range("BM3:BM" & lastrow_SHEETNAME1).Value
-        End With
-    End With
-    ' Clear all objects.
-    Set working = Nothing
-    Set column_a = Nothing
-    Set column_b = Nothing
-    Set column_e = Nothing
-    Set column_f = Nothing
-    Set column_g = Nothing
-    Set column_h = Nothing
-    Set column_i = Nothing
-    Set column_k = Nothing
-    Set column_l = Nothing
-    Set column_m = Nothing
-    Set column_n = Nothing
-    Set column_p = Nothing
-    Set column_r = Nothing
-    Set column_t = Nothing
-    Set column_u = Nothing
-    Set column_x = Nothing
-    Set column_y = Nothing
-    Set column_ab = Nothing
-    Set column_ad = Nothing
-    Set column_af = Nothing
-    Set column_ai = Nothing
-    Set column_aj = Nothing
-    Set column_am = Nothing
-    Set column_an = Nothing
-    Set column_ao = Nothing
-    Set column_aq = Nothing
-    Set column_ar = Nothing
-    Set column_au = Nothing
-    Set column_aw = Nothing
-    Set column_bb = Nothing
-    Set column_bd = Nothing
-    Set column_bh = Nothing
-    Set column_a_CUST = Nothing
-    Set column_b_CUST = Nothing
-    Set column_a_FinalABC = Nothing
-    Set column_d_FinalABC = Nothing
-    Set column_k_FinalABC = Nothing
-    Set column_n_FinalABC = Nothing
-    Set column_a_HOLDINGS = Nothing
-    Set column_f_HOLDINGS = Nothing
-    Set column_a_MappingPivots = Nothing
-    Set column_b_MappingPivots = Nothing
-    Set column_c_MappingPivots = Nothing
-    Set column_d_MappingPivots = Nothing
-    Set column_f_MappingPivots = Nothing
-    Set column_g_MappingPivots = Nothing
-    Set column_h_MappingPivots = Nothing
-    Set column_i_MappingPivots = Nothing
-    Set column_k_MappingPivots = Nothing
-    Set column_m_MappingPivots = Nothing
-    Set column_a_QSHEET = Nothing
-    Set column_a_References = Nothing
-    Set column_b_References = Nothing
-    Set column_h_References = Nothing
-    Set column_i_References = Nothing
-    Set column_j_References = Nothing
-    Set column_k_References = Nothing
-    Set column_o_References = Nothing
-    Set column_p_References = Nothing
-    Set column_q_References = Nothing
-    Set column_s_References = Nothing
-    Set column_u_References = Nothing
-    Set column_ag_References = Nothing
-    Set column_a_TRANSACTIONS = Nothing
-    Set column_l_TRANSACTIONS = Nothing
-    Set column_m_TRANSACTIONS = Nothing
-    Set column_n_TRANSACTIONS = Nothing
-    Set column_b_Wxxxx = Nothing
-    Set column_y_Wxxxx = Nothing
-    Set column_z_Wxxxx = Nothing
-    Set prev_a = Nothing
-    Set prev_b = Nothing
-    Set prev_c = Nothing
-    Set prev_f = Nothing
-    Set prev_g = Nothing
-    Set prev_h = Nothing
-    Set prev_i = Nothing
-    Set tmp = Nothing
-End Sub
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub M10540_Copy_Post_SHEETNAME1_Formulae_Down()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy Post SHEETNAME1 formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy post-SHEETNAME1 Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the SHEETNAME1 sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Copies formulae down.
-            .Range("F2:F2").AutoFill Destination:=.Range("F2:F" & lastrow_SHEETNAME1)
-            .Range("F2:F" & lastrow_SHEETNAME1).Calculate
-            .Range("F3:F" & lastrow_SHEETNAME1) = .Range("F3:F" & lastrow_SHEETNAME1).Value
-            .Range("H2:H2").AutoFill Destination:=.Range("H2:H" & lastrow_SHEETNAME1)
-            .Range("H2:H" & lastrow_SHEETNAME1).Calculate
-            .Range("H3:H" & lastrow_SHEETNAME1) = .Range("H3:H" & lastrow_SHEETNAME1).Value
-            .Range("J2:J2").AutoFill Destination:=.Range("J2:J" & lastrow_SHEETNAME1)
-            .Range("J2:J" & lastrow_SHEETNAME1).Calculate
-            .Range("J3:J" & lastrow_SHEETNAME1) = .Range("J3:J" & lastrow_SHEETNAME1).Value
-            .Range("L2:L2").AutoFill Destination:=.Range("L2:L" & lastrow_SHEETNAME1)
-            .Range("L2:L" & lastrow_SHEETNAME1).Calculate
-            .Range("L3:L" & lastrow_SHEETNAME1) = .Range("L3:L" & lastrow_SHEETNAME1).Value
-            .Range("M2:M2").AutoFill Destination:=.Range("M2:M" & lastrow_SHEETNAME1)
-            .Range("M2:M" & lastrow_SHEETNAME1).Calculate
-            .Range("M3:M" & lastrow_SHEETNAME1) = .Range("M3:M" & lastrow_SHEETNAME1).Value
-            .Range("T2:T2").AutoFill Destination:=.Range("T2:T" & lastrow_SHEETNAME1)
-            .Range("T2:T" & lastrow_SHEETNAME1).Calculate
-            .Range("T3:T" & lastrow_SHEETNAME1) = .Range("T3:T" & lastrow_SHEETNAME1).Value
-            .Range("V2:V2").AutoFill Destination:=.Range("V2:V" & lastrow_SHEETNAME1)
-            .Range("V2:V" & lastrow_SHEETNAME1).Calculate
-            .Range("V3:V" & lastrow_SHEETNAME1) = .Range("V3:V" & lastrow_SHEETNAME1).Value
-            .Range("W2:W2").AutoFill Destination:=.Range("W2:W" & lastrow_SHEETNAME1)
-            .Range("W2:W" & lastrow_SHEETNAME1).Calculate
-            .Range("W3:W" & lastrow_SHEETNAME1) = .Range("W3:W" & lastrow_SHEETNAME1).Value
-            .Range("X2:X2").AutoFill Destination:=.Range("X2:X" & lastrow_SHEETNAME1)
-            .Range("X2:X" & lastrow_SHEETNAME1).Calculate
-            .Range("X3:X" & lastrow_SHEETNAME1) = .Range("X3:X" & lastrow_SHEETNAME1).Value
-            .Range("AB2:AB2").AutoFill Destination:=.Range("AB2:AB" & lastrow_SHEETNAME1)
-            .Range("AB2:AB" & lastrow_SHEETNAME1).Calculate
-            .Range("AB3:AB" & lastrow_SHEETNAME1) = .Range("AB3:AB" & lastrow_SHEETNAME1).Value
-            .Range("AC2:AC2").AutoFill Destination:=.Range("AC2:AC" & lastrow_SHEETNAME1)
-            .Range("AC2:AC" & lastrow_SHEETNAME1).Calculate
-            .Range("AC3:AC" & lastrow_SHEETNAME1) = .Range("AC3:AC" & lastrow_SHEETNAME1).Value
-            .Range("AE2:AE2").AutoFill Destination:=.Range("AE2:AE" & lastrow_SHEETNAME1)
-            .Range("AE2:AE" & lastrow_SHEETNAME1).Calculate
-            .Range("AE3:AE" & lastrow_SHEETNAME1) = .Range("AE3:AE" & lastrow_SHEETNAME1).Value
-            .Range("AG2:AG2").AutoFill Destination:=.Range("AG2:AG" & lastrow_SHEETNAME1)
-            .Range("AG2:AG" & lastrow_SHEETNAME1).Calculate
-            .Range("AG3:AG" & lastrow_SHEETNAME1) = .Range("AG3:AG" & lastrow_SHEETNAME1).Value
-            .Range("AH2:AH2").AutoFill Destination:=.Range("AH2:AH" & lastrow_SHEETNAME1)
-            .Range("AH2:AH" & lastrow_SHEETNAME1).Calculate
-            .Range("AH3:AH" & lastrow_SHEETNAME1) = .Range("AH3:AH" & lastrow_SHEETNAME1).Value
-            .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_SHEETNAME1)
-            .Range("AJ2:AJ" & lastrow_SHEETNAME1).Calculate
-            .Range("AJ3:AJ" & lastrow_SHEETNAME1) = .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value
-            .Range("AK2:AK2").AutoFill Destination:=.Range("AK2:AK" & lastrow_SHEETNAME1)
-            .Range("AK2:AK" & lastrow_SHEETNAME1).Calculate
-            .Range("AK3:AK" & lastrow_SHEETNAME1) = .Range("AK3:AK" & lastrow_SHEETNAME1).Value
-            .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_SHEETNAME1)
-            .Range("AL2:AL" & lastrow_SHEETNAME1).Calculate
-            .Range("AL3:AL" & lastrow_SHEETNAME1) = .Range("AL3:AL" & lastrow_SHEETNAME1).Value
-            .Range("AN2:AN2").AutoFill Destination:=.Range("AN2:AN" & lastrow_SHEETNAME1)
-            .Range("AN2:AN" & lastrow_SHEETNAME1).Calculate
-            .Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            .Range("AO2:AO2").AutoFill Destination:=.Range("AO2:AO" & lastrow_SHEETNAME1)
-            .Range("AO2:AO" & lastrow_SHEETNAME1).Calculate
-            .Range("AO3:AO" & lastrow_SHEETNAME1) = .Range("AO3:AO" & lastrow_SHEETNAME1).Value
-            .Range("AP2:AP2").AutoFill Destination:=.Range("AP2:AP" & lastrow_SHEETNAME1)
-            .Range("AP2:AP" & lastrow_SHEETNAME1).Calculate
-            .Range("AP3:AP" & lastrow_SHEETNAME1) = .Range("AP3:AP" & lastrow_SHEETNAME1).Value
-            .Range("AQ2:AQ2").AutoFill Destination:=.Range("AQ2:AQ" & lastrow_SHEETNAME1)
-            .Range("AQ2:AQ" & lastrow_SHEETNAME1).Calculate
-            .Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_SHEETNAME1)
-            .Range("AR2:AR" & lastrow_SHEETNAME1).Calculate
-            .Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_SHEETNAME1)
-            .Range("AS2:AS" & lastrow_SHEETNAME1).Calculate
-            .Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_SHEETNAME1)
-            .Range("AT2:AT" & lastrow_SHEETNAME1).Calculate
-            .Range("AT3:AT" & lastrow_SHEETNAME1) = .Range("AT3:AT" & lastrow_SHEETNAME1).Value
-            .Range("AV2:AV2").AutoFill Destination:=.Range("AV2:AV" & lastrow_SHEETNAME1)
-            .Range("AV2:AV" & lastrow_SHEETNAME1).Calculate
-            .Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            .Range("AW2:AW2").AutoFill Destination:=.Range("AW2:AW" & lastrow_SHEETNAME1)
-            .Range("AW2:AW" & lastrow_SHEETNAME1).Calculate
-            .Range("AW3:AW" & lastrow_SHEETNAME1) = .Range("AW3:AW" & lastrow_SHEETNAME1).Value
-            .Range("AX2:AX2").AutoFill Destination:=.Range("AX2:AX" & lastrow_SHEETNAME1)
-            .Range("AX2:AX" & lastrow_SHEETNAME1).Calculate
-            .Range("AX3:AX" & lastrow_SHEETNAME1) = .Range("AX3:AX" & lastrow_SHEETNAME1).Value
-            .Range("AY2:AY2").AutoFill Destination:=.Range("AY2:AY" & lastrow_SHEETNAME1)
-            .Range("AY2:AY" & lastrow_SHEETNAME1).Calculate
-            .Range("AY3:AY" & lastrow_SHEETNAME1) = .Range("AY3:AY" & lastrow_SHEETNAME1).Value
-            .Range("BB2:BB2").AutoFill Destination:=.Range("BB2:BB" & lastrow_SHEETNAME1)
-            .Range("BB2:BB" & lastrow_SHEETNAME1).Calculate
-            .Range("BB3:BB" & lastrow_SHEETNAME1) = .Range("BB3:BB" & lastrow_SHEETNAME1).Value
-            .Range("BD2:BD2").AutoFill Destination:=.Range("BD2:BD" & lastrow_SHEETNAME1)
-            .Range("BD2:BD" & lastrow_SHEETNAME1).Calculate
-            .Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            .Range("BE2:BE2").AutoFill Destination:=.Range("BE2:BE" & lastrow_SHEETNAME1)
-            .Range("BE2:BE" & lastrow_SHEETNAME1).Calculate
-            .Range("BE3:BE" & lastrow_SHEETNAME1) = .Range("BE3:BE" & lastrow_SHEETNAME1).Value
-            .Range("BG2:BG2").AutoFill Destination:=.Range("BG2:BG" & lastrow_SHEETNAME1)
-            .Range("BG2:BG" & lastrow_SHEETNAME1).Calculate
-            .Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BG3:BG" & lastrow_SHEETNAME1).Value
-            .Range("BH2:BH2").AutoFill Destination:=.Range("BH2:BH" & lastrow_SHEETNAME1)
-            .Range("BH2:BH" & lastrow_SHEETNAME1).Calculate
-            .Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            .Range("BI2:BI2").AutoFill Destination:=.Range("BI2:BI" & lastrow_SHEETNAME1)
-            .Range("BI2:BI" & lastrow_SHEETNAME1).Calculate
-            .Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            .Range("BJ2:BJ2").AutoFill Destination:=.Range("BJ2:BJ" & lastrow_SHEETNAME1)
-            .Range("BJ2:BJ" & lastrow_SHEETNAME1).Calculate
-            .Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            .Range("BK2:BK2").AutoFill Destination:=.Range("BK2:BK" & lastrow_SHEETNAME1)
-            .Range("BK2:BK" & lastrow_SHEETNAME1).Calculate
-            .Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            .Range("BL2:BL2").AutoFill Destination:=.Range("BL2:BL" & lastrow_SHEETNAME1)
-            .Range("BL2:BL" & lastrow_SHEETNAME1).Calculate
-            .Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            .Range("BM2:BM2").AutoFill Destination:=.Range("BM2:BM" & lastrow_SHEETNAME1)
-            .Range("BM2:BM" & lastrow_SHEETNAME1).Calculate
-            .Range("BM3:BM" & lastrow_SHEETNAME1) = .Range("BM3:BM" & lastrow_SHEETNAME1).Value
-        End With
-    End With
-End Sub
-' Now that both Final and SHEETNAME1 sheets populated, need to action some more formulae calculations.
-Sub M10600_Copy_More_FinalABC_Formulae_Down()
-    'Dim mycell As Variant
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy more FinalABC formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Update StatusBar.
-    Application.StatusBar = "Copy more BBH Formulae down..."
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Copies formulae down.
-            .Range("L2:N2").AutoFill Destination:=.Range("L2:N" & lastrow_FinalABC)
-            .Range("P2:Q2").AutoFill Destination:=.Range("P2:Q" & lastrow_FinalABC)
-            .Range("AI2:AM2").AutoFill Destination:=.Range("AI2:AM" & lastrow_FinalABC)
-            .Range("AR2:AT2").AutoFill Destination:=.Range("AR2:AT" & lastrow_FinalABC)
-            .Range("B2:B2").AutoFill Destination:=.Range("B2:B" & lastrow_FinalABC)
-            ' Calculations.
-            .Range("P2:Q" & lastrow_FinalABC).Calculate
-            .Range("L2:N" & lastrow_FinalABC).Calculate
-            .Range("AI2:AM" & lastrow_FinalABC).Calculate
-            .Range("AR2:AT" & lastrow_FinalABC).Calculate
-            .Range("B2:B" & lastrow_FinalABC).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("K3:N" & lastrow_FinalABC) = .Range("K3:N" & lastrow_FinalABC).Value
-            .Range("P3:Q" & lastrow_FinalABC) = .Range("P3:Q" & lastrow_FinalABC).Value
-            .Range("AI3:AM" & lastrow_FinalABC) = .Range("AI3:AM" & lastrow_FinalABC).Value
-            .Range("AR3:AT" & lastrow_FinalABC) = .Range("AR3:AT" & lastrow_FinalABC).Value
-            .Range("B3:B" & lastrow_FinalABC) = .Range("B3:B" & lastrow_FinalABC).Value
-        End With
-    End With
-End Sub
-' Adds 1 to the Corrected Date, column E, in the FinalABC sheet for dates that were the last date of the month.
-' It then recalculates the sheet to determine if column AL now reconciles, i.e. shows "MATCHED GROSS AMOUNT ISIN BY MONTH".
-' This requires the following columns to have formulae throughout:  E, L, K, AK, AL
-Sub M10610_Reformat_FinalABC_Corrected_Dates()
-    Dim lastrow_FinalABC As Long
-    Dim cell_date As Date
-    Dim LastDayOfMonth As Date
-    Dim pt As PivotTable
-    Dim i As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Reformat FinalABC Corrected Dates?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Loop through every row and where column AJ does not match, it then changes the date in column E to the
-            ' 1st of the next month and again checks if column AJ matches.  If not then it reverts otherwise it keeps
-            ' the newly calculated values.
-            For i = 2 To lastrow_FinalABC
-                If RTrim(LTrim(.Range("AL" & i).Value)) = "GROSS AMOUNT NOT MATCHED ISIN BY MONTH" Then
-                    cell_date = .Range("E" & i).Value
-                    LastDayOfMonth = DateSerial(Year(cell_date), Month(cell_date + 1), 0)
-                    If cell_date = LastDayOfMonth Then
-                        ' Change for formula in column E to add 1 to the date.  This should make dates that are the last day of the month now reflect
-                        ' the 1st of the following month.
-                        .Range("E" & i).Formula = "=TEXT(TEXT(MID(F" & i & ",FIND("" "",F" & i & ")+1,FIND("","",F" & i & ")-FIND("" "",F" & i & ")-1)&"" ""&LEFT(F" & i & ",FIND("" "",F" & i & ")-1)&"" ""&RIGHT(F" & i & ",4),""dd/mm/yyyy"")+1,""dd/mm/yyyy"")"
-                        .Range("A" & i & ":C" & i).Formula = .Range("A2:C2").FormulaR1C1
-                        .Range("A" & i & ":C" & i).Calculate
-                        .Range("K" & i & ":N" & i).Formula = .Range("K2:N2").FormulaR1C1
-                        .Range("K" & i & ":N" & i).Calculate
-                        .Range("AI" & i & ":AM" & i).Formula = .Range("AI2:AM2").FormulaR1C1
-                        .Range("AI" & i & ":AM" & i).Calculate
-                        .Range("AR" & i & ":AT" & i).Formula = .Range("AR2:AT2").FormulaR1C1
-                        .Range("AR" & i & ":AT" & i).Calculate
-                        ' If column AJ is unchanged then the change of the date did not work.  So reset back.
-                        If RTrim(LTrim(Range("AJ" & i).Value)) = "GROSS AMOUNT NOT MATCHED ISIN BY MONTH" Then
-                            .Range("E" & i).Formula = "=TEXT(MID(F" & i & ",FIND("" "",F" & i & ")+1,FIND("","",F" & i & ")-FIND("" "",F" & i & ")-1)&"" ""&LEFT(F" & i & ",FIND("" "",F" & i & ")-1)&"" ""&RIGHT(F" & i & ",4),""dd/mm/yyyy"")"
-                            .Range("A" & i & ":C" & i).Formula = .Range("A2:C2").FormulaR1C1
-                            .Range("A" & i & ":C" & i).Calculate
-                            .Range("K" & i & ":N" & i).Formula = .Range("K2:N2").FormulaR1C1
-                            .Range("K" & i & ":N" & i).Calculate
-                            .Range("AI" & i & ":AM" & i).Formula = .Range("AI2:AM2").FormulaR1C1
-                            .Range("AI" & i & ":AM" & i).Calculate
-                            .Range("AR" & i & ":AT" & i).Formula = .Range("AR2:AT2").FormulaR1C1
-                            .Range("AR" & i & ":AT" & i).Calculate
-                        Else ' Column AJ has changed therefore change of date in column E has worked.  So save as values.
-                            If (i <> 2) Then ' Do not process for column 2 as we need to retain the formulae.
-                                .Range("A" & i & ":C" & i) = .Range("A" & i & ":C" & i).Value
-                                .Range("K" & i & ":N" & i) = .Range("K" & i & ":N" & i).Value
-                                .Range("AI" & i & ":AM" & i) = .Range("AI" & i & ":AM" & i).Value
-                                .Range("AR" & i & ":AT" & i) = .Range("AR" & i & ":AT" & i).Value
-                            End If
-                        End If
-                    End If
-                End If
-            Next i
-        End With
-        ' Refresh Mapping Pivots
-        With .Sheets("Mapping Pivots")
-            ' Activate the sheet.
-            .Activate
-            ' Refresh all the pivot tables on the Mapping Pivots sheet.
-            'For Each Sheet In ThisWorkbook.Worksheets
-                'For Each Pivot In Sheet.PivotTables
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            'Next
-        End With
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-End Sub
-' Speedy - copies using arrays.
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub M10615_Recalc_SHEETNAME1_Formulae_Array()
-    Dim lastrow_CUST As Long
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim lastrow_HOLDINGS As Long
-    Dim lastrow_MappingPivots As Long
-    Dim lastrow_MappingPivots2 As Long
-    Dim lastrow_MappingPivots3 As Long
-    Dim lastrow_References As Long
-    Dim lastrow_References_adjusted_rate As Long
-    Dim lastrow_References_g3_location As Long
-    Dim lastrow_References_income_type As Long
-    Dim lastrow_References_allowed_locations As Long
-    Dim lastrow_QSHEET As Long
-    Dim lastrow_TRANSACTIONS As Long
-    Dim lastrow_Wxxxx As Long
-    Dim column_a As Variant
-    Dim column_b As Variant
-    Dim column_e As Variant
-    Dim column_f As Variant
-    Dim column_g As Variant
-    Dim column_h As Variant
-    Dim column_i As Variant
-    Dim column_k As Variant
-    Dim column_m As Variant
-    Dim column_n As Variant
-    Dim column_p As Variant
-    Dim column_r As Variant
-    Dim column_t As Variant
-    Dim column_u As Variant
-    Dim column_x As Variant
-    Dim column_y As Variant
-    Dim column_ab As Variant
-    Dim column_ad As Variant
-    Dim column_af As Variant
-    Dim column_ai As Variant
-    Dim column_aj As Variant
-    Dim column_am As Variant
-    Dim column_an As Variant
-    Dim column_ao As Variant
-    Dim column_aq As Variant
-    Dim column_ar As Variant
-    Dim column_au As Variant
-    Dim column_aw As Variant
-    Dim column_bb As Variant
-    Dim column_bd As Variant
-    Dim column_bh As Variant
-    Dim column_a_CUST As Variant
-    Dim column_b_CUST As Variant
-    Dim column_a_FinalABC As Variant
-    Dim column_d_FinalABC As Variant
-    Dim column_k_FinalABC As Variant
-    Dim column_n_FinalABC As Variant
-    Dim column_a_HOLDINGS As Variant
-    Dim column_f_HOLDINGS As Variant
-    Dim column_a_MappingPivots As Variant
-    Dim column_b_MappingPivots As Variant
-    Dim column_c_MappingPivots As Variant
-    Dim column_d_MappingPivots As Variant
-    Dim column_f_MappingPivots As Variant
-    Dim column_g_MappingPivots As Variant
-    Dim column_h_MappingPivots As Variant
-    Dim column_i_MappingPivots As Variant
-    Dim column_m_MappingPivots As Variant
-    Dim column_k_MappingPivots As Variant
-    Dim column_a_QSHEET As Variant
-    Dim column_a_References As Variant
-    Dim column_b_References As Variant
-    Dim column_h_References As Variant
-    Dim column_i_References As Variant
-    Dim column_j_References As Variant
-    Dim column_k_References As Variant
-    Dim column_o_References As Variant
-    Dim column_p_References As Variant
-    Dim column_q_References As Variant
-    Dim column_s_References As Variant
-    Dim column_u_References As Variant
-    Dim column_ag_References As Variant
-    Dim column_a_TRANSACTIONS As Variant
-    Dim column_l_TRANSACTIONS As Variant
-    Dim column_m_TRANSACTIONS As Variant
-    Dim column_n_TRANSACTIONS As Variant
-    Dim column_b_Wxxxx As Variant
-    Dim column_y_Wxxxx As Variant
-    Dim column_z_Wxxxx As Variant
-    Dim prev_a As Variant
-    Dim prev_b As Variant
-    Dim prev_c As Variant
-    Dim prev_d As Variant
-    Dim prev_f As Variant
-    Dim prev_g As Variant
-    Dim prev_h As Variant
-    Dim prev_i As Variant
-    Dim tmp As Variant
-    Dim working As Variant
-    Dim n As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc_SHEETNAME1_Formulae_Array?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the SHEETNAME1 sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            lastrow_CUST = Sheets("CUST").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_FinalABC = Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-            lastrow_HOLDINGS = Sheets("HOLDINGS").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_MappingPivots = Sheets("Mapping Pivots").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_MappingPivots2 = Sheets("Mapping Pivots").Cells(Rows.Count, 6).End(xlUp).Row
-            lastrow_MappingPivots3 = Sheets("Mapping Pivots").Cells(Rows.Count, 11).End(xlUp).Row
-            lastrow_References = Sheets("References").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_References_adjusted_rate = Sheets("References").Cells(Rows.Count, 8).End(xlUp).Row
-            lastrow_References_g3_location = Sheets("References").Cells(Rows.Count, 15).End(xlUp).Row
-            lastrow_References_income_type = Sheets("References").Cells(Rows.Count, 19).End(xlUp).Row
-            lastrow_References_allowed_locations = Sheets("References").Cells(Rows.Count, 33).End(xlUp).Row
-            lastrow_QSHEET = Sheets("QSHEET").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_TRANSACTIONS = Sheets("TRANSACTIONS").Cells(Rows.Count, 1).End(xlUp).Row
-            lastrow_Wxxxx = Sheets("Wxxxx").Cells(Rows.Count, 2).End(xlUp).Row
-            ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-            ReDim column_a(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_b(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_e(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_f(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_g(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_h(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_i(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_m(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_n(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_p(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_r(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_t(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_u(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_x(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ab(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aj(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_an(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ao(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aq(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_ar(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_aw(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_bd(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_bh(1 To lastrow_SHEETNAME1, 1)
-            ReDim column_a_CUST(1 To lastrow_CUST, 1)
-            ReDim column_b_CUST(1 To lastrow_CUST, 1)
-            ReDim column_a_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_d_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_k_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_n_FinalABC(1 To lastrow_FinalABC, 1)
-            ReDim column_a_HOLDINGS(1 To lastrow_HOLDINGS, 1)
-            ReDim column_g_HOLDINGS(1 To lastrow_HOLDINGS, 1)
-            ReDim column_a_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_b_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_c_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_d_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_f_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_g_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_h_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_i_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_m_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_k_MappingPivots(1 To lastrow_MappingPivots, 1)
-            ReDim column_a_References(1 To lastrow_References, 1)
-            ReDim column_b_References(1 To lastrow_References, 1)
-            ReDim column_h_References(1 To lastrow_References, 1)
-            ReDim column_i_References(1 To lastrow_References, 1)
-            ReDim column_j_References(1 To lastrow_References, 1)
-            ReDim column_k_References(1 To lastrow_References, 1)
-            ReDim column_o_References(1 To lastrow_References, 1)
-            ReDim column_p_References(1 To lastrow_References, 1)
-            ReDim column_q_References(1 To lastrow_References, 1)
-            ReDim column_s_References(1 To lastrow_References, 1)
-            ReDim column_u_References(1 To lastrow_References, 1)
-            ReDim column_ag_References(1 To lastrow_References, 1)
-            ReDim column_a_QSHEET(1 To lastrow_QSHEET, 1)
-            ReDim column_a_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_l_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_m_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_n_TRANSACTIONS(1 To lastrow_TRANSACTIONS, 1)
-            ReDim column_b_Wxxxx(1 To lastrow_Wxxxx, 1)
-            ReDim column_y_Wxxxx(1 To lastrow_Wxxxx, 1)
-            ReDim column_z_Wxxxx(1 To lastrow_Wxxxx, 1)
-            working = Range("D3:D" & lastrow_SHEETNAME1) ' load with dummy values.
-            ' Column X
-            ' =IF(ISNA(VLOOKUP(A2,FinalABC!A$1:A$2227,1,FALSE)),"NON EXIST","EXIST")
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_a_FinalABC, column_a(n, 1), "EXIST", "NON EXIST")
-            Next n
-            .Range("X3:X" & lastrow_SHEETNAME1).Value = working
-            ' Column AB
-            ' =IF(OR(X2="NON EXIST",Y2="EXCLUDE"),"NON REPORTABLE",A2&" - "&ROUND(F2,0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = column_a(n, 1) & " - " & Round(column_f(n, 1), 0)
-                End If
-            Next n
-            .Range("AB3:AB" & lastrow_SHEETNAME1).Value = working
-            ' Column AC
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$B$1458,2,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$G$2230,2,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_b_MappingPivots = Sheets("Mapping Pivots").Range("B4:B" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_g_MappingPivots = Sheets("Mapping Pivots").Range("G4:G" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_b = column_b_MappingPivots(LBound(column_b_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_b_MappingPivots(n, 1) = "" Then
-                    column_b_MappingPivots(n, 1) = prev_b
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_b = column_b_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_g = column_g_MappingPivots(LBound(column_g_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_g_MappingPivots(n, 1) = "" Then
-                    column_g_MappingPivots(n, 1) = prev_g
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_g = column_g_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_b_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_g_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AC3:AC" & lastrow_SHEETNAME1).Value = working
-'            .Range("AC2:AC2").AutoFill Destination:=.Range("AC2:AC" & lastrow_SHEETNAME1)
-'            .Range("AC2:AC" & lastrow_SHEETNAME1).Calculate
-'            .Range("AC3:AC" & lastrow_SHEETNAME1) = .Range("AC3:AC" & lastrow_SHEETNAME1).Value
-            ' Column AE
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$C$1458,3,FALSE),IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$H$2230,3,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_c_MappingPivots = Sheets("Mapping Pivots").Range("C4:C" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_h_MappingPivots = Sheets("Mapping Pivots").Range("H4:H" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_c = column_c_MappingPivots(LBound(column_c_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_c_MappingPivots(n, 1) = "" Then
-                    column_c_MappingPivots(n, 1) = prev_c
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_c = column_c_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_h = column_h_MappingPivots(LBound(column_h_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_h_MappingPivots(n, 1) = "" Then
-                    column_h_MappingPivots(n, 1) = prev_h
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_h = column_h_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_c_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_h_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AE3:AE" & lastrow_SHEETNAME1).Value = working
-            ' TODO Peter, this might be able to be combined with previous calc on column AC, as using same lookups.
-            ' Simply use a different 'working' for data to write to column AE.
-'            .Range("AE2:AE2").AutoFill Destination:=.Range("AE2:AE" & lastrow_SHEETNAME1)
-'            .Range("AE2:AE" & lastrow_SHEETNAME1).Calculate
-'            .Range("AE3:AE" & lastrow_SHEETNAME1) = .Range("AE3:AE" & lastrow_SHEETNAME1).Value
-            ' Column AG
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",ROUND(SUMIF($A$1:$A$52435,A2,$I$1:$I$52435)-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a, column_a(n, 1)) > 1 Then
-                        working(n, 1) = "AGGREGATE"
-                    Else
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_i) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                    End If
-                End If
-            Next n
-            .Range("AG3:AG" & lastrow_SHEETNAME1).Value = working
-            ' Column AH
-            ' =IF(AG2="NON REPORTABLE",AG2,IF(AND(ROUND(SUMIFS($I$1:$I$52435,$A$1:$A$52435,A2,$Y$1:$Y$52435,"INCLUDE")-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)>-1,ROUND(SUMIFS($I$1:$I$52435,$A$1:$A$52435,A2,$Y$1:$Y$52435,"INCLUDE")-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227),2)<1),K2,"MANUAL INPUT"))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                'If working(n, 1) = "NON REPORTABLE" Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_y(n, 1) = "INCLUDE") Then
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_i) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                        If ((working(n, 1) > -1) Or (working(n, 1) < 1)) Then
-                            working(n, 1) = column_k(n, 1)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    Else
-                        working(n, 1) = "MANUAL INPUT"
-                    End If
-                End If
-            Next n
-            .Range("AH3:AH" & lastrow_SHEETNAME1).Value = working
-            ' Copy adjustment data.
-'zzzz            .Range("AI2:AI" & lastrow_SHEETNAME1) = .Range("AH2:AH" & lastrow_SHEETNAME1).Value
-            ' Column AJ
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",ROUND(E2*SUM(AI2/100),2))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_e = Range("E3:E" & lastrow_SHEETNAME1)
-            column_ai = Range("AI3:AI" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If IsNumeric(column_ai(n, 1)) Then ' To cater for "Manual Input" in column AI.
-                        working(n, 1) = Round(column_e(n, 1) * column_ai(n, 1) / 100, 2)
-                    Else
-                        working(n, 1) = 0
-                    End If
-                End If
-            Next n
-            .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value = working
-            ' Column AK
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",SUMIF($A$1:$A$52435,A2,$AJ$1:$AJ$52435)-SUMIF(FinalABC!$A$1:$A$2227,A2,FinalABC!$N$1:$N$2227))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_aj = Range("AJ3:AJ" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_n_FinalABC = Sheets("FinalABC").Range("N3:N" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    'working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_ai) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC), 2)
-                    working(n, 1) = ArraySumIf(column_a, column_a(n, 1), column_aj) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_n_FinalABC)
-                End If
-            Next n
-            .Range("AK3:AK" & lastrow_SHEETNAME1).Value = working
-            ' Column AL
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"), "NON REPORTABLE", IFERROR(VLOOKUP($A2,'Mapping Pivots'!$A$4:$D$1458,4,FALSE), IFERROR(VLOOKUP($AB2,'Mapping Pivots'!$F$4:$I$2230,4,FALSE), "MANUAL INPUT")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ab = Range("AB3:AB" & lastrow_SHEETNAME1)
-            column_a_MappingPivots = Sheets("Mapping Pivots").Range("A4:A" & lastrow_MappingPivots)
-            column_d_MappingPivots = Sheets("Mapping Pivots").Range("D4:D" & lastrow_MappingPivots)
-            column_f_MappingPivots = Sheets("Mapping Pivots").Range("F4:F" & lastrow_MappingPivots2)
-            column_i_MappingPivots = Sheets("Mapping Pivots").Range("I4:I" & lastrow_MappingPivots2)
-            ' Tidy up for Mapping Pivots columns.  Often they are Empty when reporting a 2nd line for same key value.
-            ' This effects binary searches, so initially in the columns if a blank is encountered then actual value
-            ' is written in its place.
-            prev_a = column_a_MappingPivots(LBound(column_a_MappingPivots), 1)
-            prev_d = column_d_MappingPivots(LBound(column_d_MappingPivots), 1)
-            For n = LBound(column_a_MappingPivots) To UBound(column_a_MappingPivots)
-                If column_a_MappingPivots(n, 1) = "" Then
-                    column_a_MappingPivots(n, 1) = prev_a
-                End If
-                If column_d_MappingPivots(n, 1) = "" Then
-                    column_d_MappingPivots(n, 1) = prev_d
-                End If
-                prev_a = column_a_MappingPivots(n, 1)
-                prev_d = column_d_MappingPivots(n, 1)
-            Next n
-            prev_f = column_f_MappingPivots(LBound(column_f_MappingPivots), 1)
-            prev_i = column_i_MappingPivots(LBound(column_i_MappingPivots), 1)
-            For n = LBound(column_f_MappingPivots) To UBound(column_f_MappingPivots)
-                If column_f_MappingPivots(n, 1) = "" Then
-                    column_f_MappingPivots(n, 1) = prev_f
-                End If
-                If column_i_MappingPivots(n, 1) = "" Then
-                    column_i_MappingPivots(n, 1) = prev_i
-                End If
-                prev_f = column_f_MappingPivots(n, 1)
-                prev_i = column_i_MappingPivots(n, 1)
-            Next n
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a_MappingPivots, column_a(n, 1)) > 0 Then
-                        working(n, 1) = ArrayFind(column_a_MappingPivots, column_a(n, 1), column_d_MappingPivots, 0)
-                    Else
-                        If ArrayCountIf(column_f_MappingPivots, column_ab(n, 1)) > 0 Then
-                            working(n, 1) = ArrayFind(column_f_MappingPivots, column_ab(n, 1), column_i_MappingPivots, 0)
-                        Else
-                            working(n, 1) = "MANUAL INPUT"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AL3:AL" & lastrow_SHEETNAME1).Value = working
-'            .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_SHEETNAME1)
-'            .Range("AL2:AL" & lastrow_SHEETNAME1).Calculate
-'            .Range("AL3:AL" & lastrow_SHEETNAME1) = .Range("AL3:AL" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AM2:AM" & lastrow_SHEETNAME1) = .Range("AL2:AL" & lastrow_SHEETNAME1).Value
-            ' Column AN
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(A2&" - "&AM2,'Mapping Pivots'!$K$4:$M$1458,2,FALSE), 0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_am = Range("AM3:AM" & lastrow_SHEETNAME1)
-            column_k_MappingPivots = Sheets("Mapping Pivots").Range("K4:K" & lastrow_MappingPivots3)
-            column_m_MappingPivots = Sheets("Mapping Pivots").Range("M4:M" & lastrow_MappingPivots3)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_k_MappingPivots, column_a(n, 1) & " - " & column_am(n, 1), column_m_MappingPivots, 0)
-                End If
-            Next n
-            .Range("AN3:AN" & lastrow_SHEETNAME1).Value = working
-'            .Range("AN2:AN2").AutoFill Destination:=.Range("AN2:AN" & lastrow_SHEETNAME1)
-'            .Range("AN2:AN" & lastrow_SHEETNAME1).Calculate
-'            .Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            ' Column AO
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",F2/AN2)
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            column_an = Range("AN3:AN" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_an(n, 1) = 0) Then   ' Can't SHEETNAME1de by zero.
-                        working(n, 1) = 0
-                    Else
-                        working(n, 1) = column_f(n, 1) / column_an(n, 1)
-                    End If
-                End If
-            Next n
-            .Range("AO3:AO" & lastrow_SHEETNAME1).Value = working
-            ' Column AP
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(COUNTIF($A$1:A2,A2)>1,"AGGREGATE",SUMIF($A:$A,A2,$AO:$AO)-SUMIF(FinalABC!$A:$A,A2,FinalABC!$K:$K)))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_a = Range("A3:A" & lastrow_SHEETNAME1)
-            column_ao = Range("AO3:AO" & lastrow_SHEETNAME1)
-            column_a_FinalABC = Sheets("FinalABC").Range("A3:A" & lastrow_FinalABC)
-            column_k_FinalABC = Sheets("FinalABC").Range("K3:K" & lastrow_FinalABC)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If ArrayCountIf(column_a, column_a(n, 1)) > 1 Then
-                        working(n, 1) = "AGGREGATE"
-                    Else
-                        working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_ao) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_k_FinalABC), 2)
-                    End If
-                End If
-            Next n
-            .Range("AP3:AP" & lastrow_SHEETNAME1).Value = working
-            ' Column AQ
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",T2&" - "&  IFERROR(IF(VLOOKUP(R2,Wxxxx!B:Z,24,FALSE)="YES", "VALID", "INVALID"),"INVALID")&" - " & IFERROR(VLOOKUP(R2,Wxxxx!B:Z,25,FALSE),"N") &" - "&K2)
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_b_Wxxxx = Sheets("Wxxxx").Range("B3:B" & lastrow_Wxxxx)
-            column_y_Wxxxx = Sheets("Wxxxx").Range("Y3:Y" & lastrow_Wxxxx)
-            column_z_Wxxxx = Sheets("Wxxxx").Range("Z3:Z" & lastrow_Wxxxx)
-            column_k = Range("K3:K" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = column_t(n, 1) & " - "
-                    tmp = ArrayFind(column_b_Wxxxx, column_r(n, 1), column_y_Wxxxx, 0)
-                    If tmp = "YES" Then
-                        working(n, 1) = working(n, 1) & "VALID" & " - "
-                    Else
-                        working(n, 1) = working(n, 1) & "INVALID" & " - "
-                    End If
-                    tmp = ArrayFind(column_b_Wxxxx, column_r(n, 1), column_z_Wxxxx, "N")
-                    working(n, 1) = working(n, 1) & tmp & " - " & column_k(n, 1)
-                End If
-            Next n
-            .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value = working
-'            .Range("AQ2:AQ2").AutoFill Destination:=.Range("AQ2:AQ" & lastrow_SHEETNAME1)
-'            .Range("AQ2:AQ" & lastrow_SHEETNAME1).Calculate
-'            .Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            ' Column AR
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,2,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_i_References = Sheets("References").Range("I3:I" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_i_References, 0)
-                End If
-            Next n
-            .Range("AR3:AR" & lastrow_SHEETNAME1).Value = working
-'            .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_SHEETNAME1)
-'            .Range("AR2:AR" & lastrow_SHEETNAME1).Calculate
-'            .Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            ' Column AS
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,3,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_j_References = Sheets("References").Range("J3:J" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_j_References, 0)
-                End If
-            Next n
-            .Range("AS3:AS" & lastrow_SHEETNAME1).Value = working
-'            .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_SHEETNAME1)
-'            .Range("AS2:AS" & lastrow_SHEETNAME1).Calculate
-'            .Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            ' Column AT
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AQ2,References!$H$1:$K$45,4,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_aq = Range("AQ3:AQ" & lastrow_SHEETNAME1)
-            column_h_References = Sheets("References").Range("H3:H" & lastrow_References_adjusted_rate)
-            column_k_References = Sheets("References").Range("K3:K" & lastrow_References_adjusted_rate)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_h_References, column_aq(n, 1), column_k_References, 0)
-                End If
-            Next n
-            .Range("AT3:AT" & lastrow_SHEETNAME1).Value = working
-'            .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_SHEETNAME1)
-'            .Range("AT2:AT" & lastrow_SHEETNAME1).Calculate
-'            .Range("AT3:AT" & lastrow_SHEETNAME1) = .Range("AT3:AT" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AU2:AU" & lastrow_SHEETNAME1) = .Range("AT2:AT" & lastrow_SHEETNAME1).Value
-            ' Column AV
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IFERROR(VLOOKUP(AD2&" - "&AF2,References!S:W,3,FALSE),0))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_ad = Range("AD3:AD" & lastrow_SHEETNAME1)
-            column_af = Range("AF3:AF" & lastrow_SHEETNAME1)
-            column_s_References = Sheets("References").Range("S3:S" & lastrow_References_income_type)
-            column_u_References = Sheets("References").Range("U3:U" & lastrow_References_income_type)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    working(n, 1) = ArrayFind(column_s_References, column_ad(n, 1) & " - " & column_af(n, 1), column_u_References, 0)
-                End If
-            Next n
-            .Range("AV3:AV" & lastrow_SHEETNAME1).Value = working
-'            .Range("AV2:AV2").AutoFill Destination:=.Range("AV2:AV" & lastrow_SHEETNAME1)
-'            .Range("AV2:AV" & lastrow_SHEETNAME1).Calculate
-'            .Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            ' Column AW
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(OR(AR2="NO ADJUSTMENT REQUIRED",K2=AU2),"NO ADJUSTMENT REQUIRED","ADJUST FROM "&K2&"% TO "&AU2&"% - BBH REPORTED "&AI2&"%"))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_ar = Range("AR3:AR" & lastrow_SHEETNAME1)
-            column_k = Range("K3:K" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_ai = Range("AI3:AI" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_ar(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_k(n, 1) = column_au(n, 1)) Then
-                        working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                    Else
-                        working(n, 1) = "ADJUST FROM " & column_k(n, 1) & "% TO " & column_au(n, 1) & "% - BBH REPORTED " & column_ai(n, 1) & "%"
-                    End If
-                End If
-            Next n
-            .Range("AW3:AW" & lastrow_SHEETNAME1).Value = working
-            ' Column AX
-            ' =IF(OR($X2="NON EXIST",$Y2="EXCLUDE"),"NON REPORTABLE",IF(R2=530572,"BPB&T IOM",IF(T2="IBGC","BPCI","BPB&T Jersey")))
-            column_x = Range("X3:X" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_x(n, 1) = "NON EXIST" Or column_y(n, 1) = "EXCLUDE") Then
-                    working(n, 1) = "NON REPORTABLE"
-                Else
-                    If (column_r(n, 1) = 530572) Then
-                        working(n, 1) = "BPB&T IOM"
-                    Else
-                        If (column_t(n, 1) = "IBGC") Then
-                            working(n, 1) = "BPCI"
-                        Else
-                            working(n, 1) = "BPB&T Jersey"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("AX3:AX" & lastrow_SHEETNAME1).Value = working
-            ' Column AY
-            ' =IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",ROUND((F2*AU2%)-I2,2)))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_f = Range("F3:F" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_i = Range("I3:I" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        working(n, 1) = Round((column_f(n, 1) * column_au(n, 1) / 100) - column_i(n, 1), 2)
-                    End If
-                End If
-            Next n
-            .Range("AY3:AY" & lastrow_SHEETNAME1).Value = working
-            ' Column BB
-            ' =IF(ISNA(VLOOKUP(U2,References!$AG:$AG,1,FALSE)),"NO ADJUSTMENT REQUIRED",IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IFERROR(VLOOKUP(T2&" - "&AU2,References!$O$2:$Q$5,3,FALSE),0))))
-            column_u = Range("U3:U" & lastrow_SHEETNAME1)
-            column_ag_References = Sheets("References").Range("AG3:AG" & lastrow_References_allowed_locations)
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_t = Range("T3:T" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_o_References = Sheets("References").Range("O3:O" & lastrow_References_g3_location)
-            column_q_References = Sheets("References").Range("Q3:Q" & lastrow_References_g3_location)
-            For n = LBound(working) To UBound(working)
-                If ArrayCountIf(column_ag_References, column_u(n, 1)) > 0 Then
-                    If column_aw(n, 1) = "NO ADJUSTMENT REQUIRED" Then
-                        working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                    Else
-                        If column_aw(n, 1) = "NON REPORTABLE" Then
-                            working(n, 1) = "NON REPORTABLE"
-                        Else
-                            working(n, 1) = ArrayFind(column_o_References, column_t(n, 1) & " - " & column_au(n, 1), column_q_References, 0)
-                        End If
-                    End If
-                    'working(n, 1) = Round(ArraySumIf(column_a, column_a(n, 1), column_an) - ArraySumIf(column_a_FinalABC, column_a(n, 1), column_k_FinalABC), 2)
-                Else
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                End If
-            Next n
-            .Range("BB3:BB" & lastrow_SHEETNAME1).Value = working
-'            .Range("BB2:BB2").AutoFill Destination:=.Range("BB2:BB" & lastrow_SHEETNAME1)
-'            .Range("BB2:BB" & lastrow_SHEETNAME1).Calculate
-'            .Range("BB3:BB" & lastrow_SHEETNAME1) = .Range("BB3:BB" & lastrow_SHEETNAME1).Value
-            ' Column BD
-            ' =IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IFERROR(VLOOKUP(T2& " - " &AU2,References!$O$2:$Q$5,2,FALSE),0)))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_au = Range("AU3:AU" & lastrow_SHEETNAME1)
-            column_o_References = Sheets("References").Range("O3:O" & lastrow_References_g3_location)
-            column_p_References = Sheets("References").Range("P3:P" & lastrow_References_g3_location)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        working(n, 1) = ArrayFind(column_o_References, column_t(n, 1) & " - " & column_au(n, 1), column_p_References, 0)
-                    End If
-                End If
-            Next n
-            .Range("BD3:BD" & lastrow_SHEETNAME1).Value = working
-'            .Range("BD2:BD2").AutoFill Destination:=.Range("BD2:BD" & lastrow_SHEETNAME1)
-'            .Range("BD2:BD" & lastrow_SHEETNAME1).Calculate
-'            .Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            ' Column BE
-            '=IF(AW2="NO ADJUSTMENT REQUIRED","NO ADJUSTMENT REQUIRED",IF(AW2="NON REPORTABLE","NON REPORTABLE",IF(BD2<>M2,"Yes","No")))
-            column_aw = Range("AW3:AW" & lastrow_SHEETNAME1)
-            column_bd = Range("BD3:BD" & lastrow_SHEETNAME1)
-            column_m = Range("M3:M" & lastrow_SHEETNAME1)
-            For n = LBound(working) To UBound(working)
-                If (column_aw(n, 1) = "NO ADJUSTMENT REQUIRED") Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    If (column_aw(n, 1) = "NON REPORTABLE") Then
-                        working(n, 1) = "NON REPORTABLE"
-                    Else
-                        If (column_bd(n, 1) <> column_m(n, 1)) Then
-                            working(n, 1) = "Yes"
-                        Else
-                            working(n, 1) = "No"
-                        End If
-                    End If
-                End If
-            Next n
-            .Range("BE3:BE" & lastrow_SHEETNAME1).Value = working
-            ' Column BG
-            ' =IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A:A,1,FALSE)),"NO HOLDINGS","STILL HAS HOLDINGS")
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_n = Range("N3:N" & lastrow_SHEETNAME1)
-            column_a_HOLDINGS = Sheets("HOLDINGS").Range("A3:A" & lastrow_HOLDINGS)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_a_HOLDINGS, column_r(n, 1) & column_n(n, 1), "STILL HAS HOLDINGS", "NO HOLDINGS")
-            Next n
-            .Range("BG3:BG" & lastrow_SHEETNAME1).Value = working
-'            .Range("BG2:BG2").AutoFill Destination:=.Range("BG2:BG" & lastrow_SHEETNAME1)
-'            .Range("BG2:BG" & lastrow_SHEETNAME1).Calculate
-'            .Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BG3:BG" & lastrow_SHEETNAME1).Value
-            ' Column BH
-            '=IF(ISNA(VLOOKUP(R2&N2,HOLDINGS!A:F,6,FALSE)),"NO HOLDINGS",VLOOKUP(R2&N2,HOLDINGS!A:F,6,FALSE))
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_n = Range("N3:N" & lastrow_SHEETNAME1)
-            column_a_HOLDINGS = Sheets("HOLDINGS").Range("A3:A" & lastrow_HOLDINGS)
-            column_f_HOLDINGS = Sheets("HOLDINGS").Range("F3:F" & lastrow_HOLDINGS)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFind(column_a_HOLDINGS, column_r(n, 1) & column_n(n, 1), column_f_HOLDINGS, "NO HOLDINGS")
-            Next n
-            .Range("BH3:BH" & lastrow_SHEETNAME1).Value = working
-'            .Range("BH2:BH2").AutoFill Destination:=.Range("BH2:BH" & lastrow_SHEETNAME1)
-'            .Range("BH2:BH" & lastrow_SHEETNAME1).Calculate
-'            .Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            ' Column BI
-            ' =IF(BH2="NO HOLDINGS","NO HOLDINGS",VLOOKUP(BH2,References!A:B,2,FALSE))
-            column_bh = Range("BH3:BH" & lastrow_SHEETNAME1)
-            column_a_References = Sheets("References").Range("A3:A" & lastrow_References)
-            column_b_References = Sheets("References").Range("B3:B" & lastrow_References)
-            For n = LBound(working) To UBound(working)
-                If column_bh(n, 1) = "NO HOLDINGS" Then
-                    working(n, 1) = "NO HOLDINGS"
-                Else
-                    working(n, 1) = ArrayFind(column_a_References, column_bh(n, 1), column_b_References, 0)
-                End If
-            Next n
-            .Range("BI3:BI" & lastrow_SHEETNAME1).Value = working
-'            .Range("BI2:BI2").AutoFill Destination:=.Range("BI2:BI" & lastrow_SHEETNAME1)
-'            .Range("BI2:BI" & lastrow_SHEETNAME1).Calculate
-'            .Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            ' Column BJ
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",IFERROR(VLOOKUP(LEFT(P2,6)&TEXT(H2,"#.00")&R2,TRANSACTIONS!A:L,12,FALSE),0))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_l_TRANSACTIONS = Sheets("TRANSACTIONS").Range("L3:L" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_l_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value = working
-'            .Range("BJ2:BJ2").AutoFill Destination:=.Range("BJ2:BJ" & lastrow_SHEETNAME1)
-'            .Range("BJ2:BJ" & lastrow_SHEETNAME1).Calculate
-'            .Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            ' Column BK
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",VLOOKUP(LEFT(P2,6)&TEXT(H2,"#.00")&R2,TRANSACTIONS!A:M,13,FALSE))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_m_TRANSACTIONS = Sheets("TRANSACTIONS").Range("M3:M" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_m_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BK3:BK" & lastrow_SHEETNAME1).Value = working
-'            .Range("BK2:BK2").AutoFill Destination:=.Range("BK2:BK" & lastrow_SHEETNAME1)
-'            .Range("BK2:BK" & lastrow_SHEETNAME1).Calculate
-'            .Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            ' Column BL
-            ' =IF(OR(BB2="NO ADJUSTMENT REQUIRED",Y2="EXCLUDE"),"NO ADJUSTMENT REQUIRED",VLOOKUP(LEFT(P2,6)&TEXT(H2,"#.00")&R2,TRANSACTIONS!A:N,14,FALSE))
-            column_bb = Range("BB3:BB" & lastrow_SHEETNAME1)
-            column_y = Range("Y3:Y" & lastrow_SHEETNAME1)
-            column_p = Range("P3:P" & lastrow_SHEETNAME1)
-            column_h = Range("H3:H" & lastrow_SHEETNAME1)
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_TRANSACTIONS = Sheets("TRANSACTIONS").Range("A3:A" & lastrow_TRANSACTIONS)
-            column_n_TRANSACTIONS = Sheets("TRANSACTIONS").Range("N3:N" & lastrow_TRANSACTIONS)
-            For n = LBound(working) To UBound(working)
-                If column_bb(n, 1) = "NO ADJUSTMENT REQUIRED" Or column_y(n, 1) = "EXCLUDE" Then
-                    working(n, 1) = "NO ADJUSTMENT REQUIRED"
-                Else
-                    working(n, 1) = ArrayFind(column_a_TRANSACTIONS, Left(column_p(n, 1), 6) & WorksheetFunction.Text(column_h(n, 1), "#.00") & column_r(n, 1), column_n_TRANSACTIONS, 0)
-                End If
-            Next n
-            .Range("BL3:BL" & lastrow_SHEETNAME1).Value = working
-'            .Range("BL2:BL2").AutoFill Destination:=.Range("BL2:BL" & lastrow_SHEETNAME1)
-'            .Range("BL2:BL" & lastrow_SHEETNAME1).Calculate
-'            .Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            ' Column BM
-            ' =IF(ISNA(VLOOKUP(R2,QSHEET!A:A,1,FALSE)),"NOT ON QSHEET", "ON QSHEET")
-            column_r = Range("R3:R" & lastrow_SHEETNAME1)
-            column_a_QSHEET = Sheets("QSHEET").Range("A3:A" & lastrow_QSHEET)
-            For n = LBound(working) To UBound(working)
-                working(n, 1) = ArrayFindEx(column_a_QSHEET, column_r(n, 1), "ON QSHEET", "NOT ON QSHEET")
-            Next n
-            .Range("BM3:BM" & lastrow_SHEETNAME1).Value = working
-'            .Range("BM2:BM2").AutoFill Destination:=.Range("BM2:BM" & lastrow_SHEETNAME1)
-'            .Range("BM2:BM" & lastrow_SHEETNAME1).Calculate
-'            .Range("BM3:BM" & lastrow_SHEETNAME1) = .Range("BM3:BM" & lastrow_SHEETNAME1).Value
-        End With
-    End With
-    ' Clear all objects.
-    Set working = Nothing
-    Set column_a = Nothing
-    Set column_b = Nothing
-    Set column_e = Nothing
-    Set column_f = Nothing
-    Set column_g = Nothing
-    Set column_h = Nothing
-    Set column_i = Nothing
-    Set column_k = Nothing
-    Set column_m = Nothing
-    Set column_n = Nothing
-    Set column_p = Nothing
-    Set column_r = Nothing
-    Set column_t = Nothing
-    Set column_u = Nothing
-    Set column_x = Nothing
-    Set column_y = Nothing
-    Set column_ab = Nothing
-    Set column_ad = Nothing
-    Set column_af = Nothing
-    Set column_ai = Nothing
-    Set column_aj = Nothing
-    Set column_an = Nothing
-    Set column_ao = Nothing
-    Set column_aq = Nothing
-    Set column_ar = Nothing
-    Set column_au = Nothing
-    Set column_aw = Nothing
-    Set column_bb = Nothing
-    Set column_bd = Nothing
-    Set column_bh = Nothing
-    Set column_a_CUST = Nothing
-    Set column_b_CUST = Nothing
-    Set column_a_FinalABC = Nothing
-    Set column_d_FinalABC = Nothing
-    Set column_k_FinalABC = Nothing
-    Set column_n_FinalABC = Nothing
-    Set column_a_HOLDINGS = Nothing
-    Set column_f_HOLDINGS = Nothing
-    Set column_a_MappingPivots = Nothing
-    Set column_b_MappingPivots = Nothing
-    Set column_c_MappingPivots = Nothing
-    Set column_f_MappingPivots = Nothing
-    Set column_g_MappingPivots = Nothing
-    Set column_h_MappingPivots = Nothing
-    Set column_a_References = Nothing
-    Set column_b_References = Nothing
-    Set column_h_References = Nothing
-    Set column_k_References = Nothing
-    Set column_s_References = Nothing
-    Set column_u_References = Nothing
-    Set column_ag_References = Nothing
-    Set column_a_QSHEET = Nothing
-    Set column_a_TRANSACTIONS = Nothing
-    Set column_l_TRANSACTIONS = Nothing
-    Set column_m_TRANSACTIONS = Nothing
-    Set column_n_TRANSACTIONS = Nothing
-    Set column_b_Wxxxx = Nothing
-    Set column_y_Wxxxx = Nothing
-    Set column_z_Wxxxx = Nothing
-    Set prev_a = Nothing
-    Set prev_b = Nothing
-    Set prev_c = Nothing
-    Set prev_f = Nothing
-    Set prev_g = Nothing
-    Set prev_h = Nothing
-    Set tmp = Nothing
-End Sub
-' Copies remaining formulae down on the SHEETNAME1 sheet.
-Sub M10625_Recalc_SHEETNAME1_Formulae()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim top_row As Integer
-    Dim source As String
-    Dim SHEETNAME1_range As Range
-    Dim FinalABC_range As Range
-    ' Set top row for pivots.
-    ' top_row is row in which pivots at the top are created.
-    top_row = 5
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc SHEETNAME1 PIVOT formulae?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    'Creating Pivot cache
-    On Error Resume Next
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        'lastrow = Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("D65536").End(xlUp).Row
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        ' Get how many rows of data have been loaded into the sheet.
-        'SHEETNAME1_lastrow = Workbooks(my1042Rec).Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        Set SHEETNAME1_range = Range("SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-        Set FinalABC_range = Range("FinalABC!A1:AT" & lastrow_FinalABC)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-            .Range("X2:X2").AutoFill Destination:=.Range("X2:X" & lastrow_SHEETNAME1)
-            .Range("X2:X" & lastrow_SHEETNAME1).Calculate
-            .Range("X3:X" & lastrow_SHEETNAME1) = .Range("X3:X" & lastrow_SHEETNAME1).Value
-            .Range("AB2:AB2").AutoFill Destination:=.Range("AB2:AB" & lastrow_SHEETNAME1)
-            .Range("AB2:AB" & lastrow_SHEETNAME1).Calculate
-            .Range("AB3:AB" & lastrow_SHEETNAME1) = .Range("AB3:AB" & lastrow_SHEETNAME1).Value
-            .Range("AC2:AC2").AutoFill Destination:=.Range("AC2:AC" & lastrow_SHEETNAME1)
-            .Range("AC2:AC" & lastrow_SHEETNAME1).Calculate
-            .Range("AC3:AC" & lastrow_SHEETNAME1) = .Range("AC3:AC" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AD2:AD" & lastrow_SHEETNAME1) = .Range("AC2:AC" & lastrow_SHEETNAME1).Value
-            .Range("AE2:AE2").AutoFill Destination:=.Range("AE2:AE" & lastrow_SHEETNAME1)
-            .Range("AE2:AE" & lastrow_SHEETNAME1).Calculate
-            .Range("AE3:AE" & lastrow_SHEETNAME1) = .Range("AE3:AE" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AF2:AF" & lastrow_SHEETNAME1) = .Range("AE2:AE" & lastrow_SHEETNAME1).Value
-            .Range("AG2:AG2").AutoFill Destination:=.Range("AG2:AG" & lastrow_SHEETNAME1)
-            .Range("AG2:AG" & lastrow_SHEETNAME1).Calculate
-            .Range("AG3:AG" & lastrow_SHEETNAME1) = .Range("AG3:AG" & lastrow_SHEETNAME1).Value
-            .Range("AH2:AH2").AutoFill Destination:=.Range("AH2:AH" & lastrow_SHEETNAME1)
-            .Range("AH2:AH" & lastrow_SHEETNAME1).Calculate
-            .Range("AH3:AH" & lastrow_SHEETNAME1) = .Range("AH3:AH" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AI2:AI" & lastrow_SHEETNAME1) = .Range("AH2:AH" & lastrow_SHEETNAME1).Value
-            .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_SHEETNAME1)
-            .Range("AJ2:AJ" & lastrow_SHEETNAME1).Calculate
-            .Range("AJ3:AJ" & lastrow_SHEETNAME1) = .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value
-            ' Depends on the earlier pivots.
-            .Range("AK2:AK2").AutoFill Destination:=.Range("AK2:AK" & lastrow_SHEETNAME1)
-            .Range("AK2:AK" & lastrow_SHEETNAME1).Calculate
-            .Range("AK3:AK" & lastrow_SHEETNAME1) = .Range("AK3:AK" & lastrow_SHEETNAME1).Value
-            .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_SHEETNAME1)
-            .Range("AL2:AL" & lastrow_SHEETNAME1).Calculate
-            .Range("AL3:AL" & lastrow_SHEETNAME1) = .Range("AL3:AL" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AM2:AM" & lastrow_SHEETNAME1) = .Range("AL2:AL" & lastrow_SHEETNAME1).Value
-            .Range("AN2:AN2").AutoFill Destination:=.Range("AN2:AN" & lastrow_SHEETNAME1)
-            .Range("AN2:AN" & lastrow_SHEETNAME1).Calculate
-            .Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            .Range("AO2:AO2").AutoFill Destination:=.Range("AO2:AO" & lastrow_SHEETNAME1)
-            .Range("AO2:AO" & lastrow_SHEETNAME1).Calculate
-            .Range("AO3:AO" & lastrow_SHEETNAME1) = .Range("AO3:AO" & lastrow_SHEETNAME1).Value
-            .Range("AP2:AP2").AutoFill Destination:=.Range("AP2:AP" & lastrow_SHEETNAME1)
-            .Range("AP2:AP" & lastrow_SHEETNAME1).Calculate
-            .Range("AP3:AP" & lastrow_SHEETNAME1) = .Range("AP3:AP" & lastrow_SHEETNAME1).Value
-            .Range("AQ2:AQ2").AutoFill Destination:=.Range("AQ2:AQ" & lastrow_SHEETNAME1)
-            .Range("AQ2:AQ" & lastrow_SHEETNAME1).Calculate
-            .Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_SHEETNAME1)
-            .Range("AR2:AR" & lastrow_SHEETNAME1).Calculate
-            .Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_SHEETNAME1)
-            .Range("AS2:AS" & lastrow_SHEETNAME1).Calculate
-            .Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_SHEETNAME1)
-            .Range("AT2:AT" & lastrow_SHEETNAME1).Calculate
-            .Range("AT3:AT" & lastrow_SHEETNAME1) = .Range("AT3:AT" & lastrow_SHEETNAME1).Value
-            ' Copy adjustment data.
-'zzzz            .Range("AU2:AU" & lastrow_SHEETNAME1) = .Range("AT2:AT" & lastrow_SHEETNAME1).Value
-            .Range("AV2:AV2").AutoFill Destination:=.Range("AV2:AV" & lastrow_SHEETNAME1)
-            .Range("AV2:AV" & lastrow_SHEETNAME1).Calculate
-            .Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            .Range("AW2:AW2").AutoFill Destination:=.Range("AW2:AW" & lastrow_SHEETNAME1)
-            .Range("AW2:AW" & lastrow_SHEETNAME1).Calculate
-            .Range("AW3:AW" & lastrow_SHEETNAME1) = .Range("AW3:AW" & lastrow_SHEETNAME1).Value
-            .Range("AX2:AX2").AutoFill Destination:=.Range("AX2:AX" & lastrow_SHEETNAME1)
-            .Range("AX2:AX" & lastrow_SHEETNAME1).Calculate
-            .Range("AX3:AX" & lastrow_SHEETNAME1) = .Range("AX3:AX" & lastrow_SHEETNAME1).Value
-            .Range("AY2:AY2").AutoFill Destination:=.Range("AY2:AY" & lastrow_SHEETNAME1)
-            .Range("AY2:AY" & lastrow_SHEETNAME1).Calculate
-            .Range("AY3:AY" & lastrow_SHEETNAME1) = .Range("AY3:AY" & lastrow_SHEETNAME1).Value
-            .Range("BB2:BB2").AutoFill Destination:=.Range("BB2:BB" & lastrow_SHEETNAME1)
-            .Range("BB2:BB" & lastrow_SHEETNAME1).Calculate
-            .Range("BB3:BB" & lastrow_SHEETNAME1) = .Range("BB3:BB" & lastrow_SHEETNAME1).Value
-            .Range("BD2:BD2").AutoFill Destination:=.Range("BD2:BD" & lastrow_SHEETNAME1)
-            .Range("BD2:BD" & lastrow_SHEETNAME1).Calculate
-            .Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            .Range("BE2:BE2").AutoFill Destination:=.Range("BE2:BE" & lastrow_SHEETNAME1)
-            .Range("BE2:BE" & lastrow_SHEETNAME1).Calculate
-            .Range("BE3:BE" & lastrow_SHEETNAME1) = .Range("BE3:BE" & lastrow_SHEETNAME1).Value
-            .Range("BG2:BG2").AutoFill Destination:=.Range("BG2:BG" & lastrow_SHEETNAME1)
-            .Range("BG2:BG" & lastrow_SHEETNAME1).Calculate
-            .Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BG3:BG" & lastrow_SHEETNAME1).Value
-            .Range("BH2:BH2").AutoFill Destination:=.Range("BH2:BH" & lastrow_SHEETNAME1)
-            .Range("BH2:BH" & lastrow_SHEETNAME1).Calculate
-            .Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            .Range("BI2:BI2").AutoFill Destination:=.Range("BI2:BI" & lastrow_SHEETNAME1)
-            .Range("BI2:BI" & lastrow_SHEETNAME1).Calculate
-            .Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            .Range("BJ2:BJ2").AutoFill Destination:=.Range("BJ2:BJ" & lastrow_SHEETNAME1)
-            .Range("BJ2:BJ" & lastrow_SHEETNAME1).Calculate
-            .Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            .Range("BK2:BK2").AutoFill Destination:=.Range("BK2:BK" & lastrow_SHEETNAME1)
-            .Range("BK2:BK" & lastrow_SHEETNAME1).Calculate
-            .Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            .Range("BL2:BL2").AutoFill Destination:=.Range("BL2:BL" & lastrow_SHEETNAME1)
-            .Range("BL2:BL" & lastrow_SHEETNAME1).Calculate
-            .Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            .Range("BM2:BM2").AutoFill Destination:=.Range("BM2:BM" & lastrow_SHEETNAME1)
-            .Range("BM2:BM" & lastrow_SHEETNAME1).Calculate
-            .Range("BM3:BM" & lastrow_SHEETNAME1) = .Range("BM3:BM" & lastrow_SHEETNAME1).Value
-        End With
-    End With
-    ' Clear all objects.
-    Set SHEETNAME1_range = Nothing
-    Set FinalABC_range = Nothing
-End Sub
-' Format the FinalABC sheet to put lines between ISINs.
-Sub M10700_Format_FinalABC_lines()
-    Dim myISIN_Change As Variant
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Format the FinalABC sheet to put lines between ISIN's?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        'lastrow = Workbooks(my1042Rec).Sheets("FinalABC").Range("D65536").End(xlUp).Row
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Calculate first to ensure that we know when there is a change to the ISIN.
-            'Application.Calculate
-            '.Range("AJ2:AJ" & lastrow_FinalABC).Calculate
-            .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_FinalABC)
-            .Range("AJ2:AJ" & lastrow_FinalABC).Calculate
-            .Range("AJ3:AJ" & lastrow_FinalABC) = .Range("AJ3:AJ" & lastrow_FinalABC).Value
-'            For Each myISIN_Change In .Range("AJ2", Range("AJ65536").End(xlUp))
-            For Each myISIN_Change In .Range("AJ2:AJ" & lastrow_FinalABC)
-                If myISIN_Change = False Then
-                    .Range("A" & myISIN_Change.Row & ":AT" & myISIN_Change.Row).Select
-                    With Selection.Borders(xlEdgeTop)
-                        .LineStyle = xlDouble
-                        .Color = -4165632
-                        .TintAndShade = 0
-                        .Weight = xlThick
-                    End With
-                End If
-            Next myISIN_Change
-        End With
-    End With
-    ' Clear all objects.
-    Set myISIN_Change = Nothing
-End Sub
-' Format the SHEETNAME1 sheet by placing lines between ISINs.
-Sub M10710_Format_SHEETNAME1_Lines()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim myISIN_Change As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Format the SHEETNAME1 sheet to put lines between ISIN's?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Application.Calculate
-            '.Range("W2:W" & lastrow_SHEETNAME1).Calculate
-            .Range("W2:W2").AutoFill Destination:=.Range("W2:W" & lastrow_SHEETNAME1)
-            .Range("W2:W" & lastrow_SHEETNAME1).Calculate
-            .Range("W3:W" & lastrow_SHEETNAME1) = .Range("W3:W" & lastrow_SHEETNAME1).Value
-'            For Each myISIN_Change In .Range("W2", Range("W65536").End(xlUp))
-            For Each myISIN_Change In .Range("W2:W" & lastrow_SHEETNAME1)
-                If myISIN_Change = False Then
-                    .Range("A" & myISIN_Change.Row & ":BO" & myISIN_Change.Row).Select
-                    With Selection.Borders(xlEdgeTop)
-                        .LineStyle = xlDouble
-                        .Color = -4165632
-                        .TintAndShade = 0
-                        .Weight = xlThick
-                    End With
-                End If
-            Next myISIN_Change
-        End With
-    End With
-    ' Clear all objects.
-    Set myISIN_Change = Nothing
-End Sub
-' Refresh the PIVOT tables on the REC DASHBOARD sheet.
-Sub M10800_Refresh_Rec_Dashboard_Pivots()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim pc As PivotCache
-    Dim pt As PivotTable
-    Dim top_row As Integer
-    Dim bottom_row As Integer
-    ' Set top and bottom row for pivots.
-    ' top_row is row in which pivots at the top are created.
-    ' bottom_row is row in which pivots below are created.
-    top_row = 5
-    bottom_row = 20
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Refresh Rec Dashboard Pivots?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Stop alerts about replacing contents of cells.
-    Application.DisplayAlerts = False
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        'lastrow = Workbooks(my1042Rec).Sheets("FinalABC").Range("D65536").End(xlUp).Row
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        With Sheets("REC DASHBOARD")
-            ' Activate the sheet.
-            .Activate
-            ' Delete all existing Pivot Tables in the worksheet.
-            ' In the TableRange1 property, page fields are excluded;
-            ' To select the entire PivotTable report, including the page fields, use the TableRange2 property.
-            For Each pt In .PivotTables
-                pt.TableRange2.Clear
-            Next pt
-            '**************************** BBH PIVOT Gross Totals **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "FinalABC!A1:AT" & lastrow_FinalABC)
-            ' Creating Pivot table.
-            Set pt = pc.CreatePivotTable(.Range("A" & top_row), "PivotTableBBHRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                '.Orientation = xlPageField
-                '.Orientation = xlColumnField
-                ' Set row field.
-                With .PivotFields("Account")
-                    'pvi = .PivotItems("1")
-                    '.PivotItems("Row Label").Caption = "Account"
-                    .Orientation = xlRowField
-                    .Position = 1
-                End With
-                ' Set column field.
-                'With .PivotFields("Region")
-                '    .Orientation = xlColumnField
-                '    .Position = 1
-                'End With
-                ' Set data field.
-                '.AddDataField .PivotFields("Gross CCY Converted"), "Sum of Gross CCY Converted", xlSum
-                ' Set data field.
-                With .PivotFields("Gross CCY Converted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** SHEETNAME1 PIVOT Gross Totals **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-            ' Creating Pivot table.
-            'Set pt = pc.CreatePivotTable(ws.Range("A17"))
-            Set pt = pc.CreatePivotTable(.Range("A" & bottom_row), "PivotTableSHEETNAME1Rec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("Pool Account BBH")
-                    '.Caption = "Account"
-                    .Orientation = xlRowField
-                    .Position = 1
-                End With
-                ' Set data field.
-                With .PivotFields("Gross Payment To Include")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** BBH PIVOT "INCOME & EXEMPTION TOTALS" **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "FinalABC!A1:AT" & lastrow_FinalABC)
-            ' Creating Pivot table.
-            Set pt = pc.CreatePivotTable(.Range("I" & top_row), "PivotTableBBH_IncomeRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Set tabular form for entire pivot table.
-                '.RowAxisLayout xlTabularRow
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("INC_CDE")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("NRA_Exm_Cde")
-                    .Orientation = xlRowField
-                    .Position = 2
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set data field.
-                With .PivotFields("Gross CCY Converted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** SHEETNAME1 PIVOT "INCOME & EXEMPTION TOTALS" **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-            ' Creating Pivot table.
-            'Set pt = pc.CreatePivotTable(ws.Range("A17"))
-            Set pt = pc.CreatePivotTable(.Range("I" & bottom_row), "PivotTableSHEETNAME1_IncomeRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("Income Code Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("Exemption Code Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 2
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set data field.
-                With .PivotFields("Gross Payment To Include")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** BBH PIVOT "CCY TOTALS" **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "FinalABC!A1:AT" & lastrow_FinalABC)
-            ' Creating Pivot table.
-            Set pt = pc.CreatePivotTable(.Range("S" & top_row), "PivotTableBBH_CCYRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Set tabular form for entire pivot table.
-                '.RowAxisLayout xlTabularRow
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("PMT_Curr")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set data field.
-                With .PivotFields("USD Gross Amount Adjusted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** SHEETNAME1 PIVOT "CCY TOTALS" **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-            ' Creating Pivot table.
-            'Set pt = pc.CreatePivotTable(ws.Range("A17"))
-            Set pt = pc.CreatePivotTable(.Range("S" & bottom_row), "PivotTableSHEETNAME1_CCYRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("BBH CCY Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set data field.
-                With .PivotFields("USD Gross Converted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            '**************************** SHEETNAME1 PIVOT "FINAL REPORTS" **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-            ' Creating Pivot table.
-            'Set pt = pc.CreatePivotTable(ws.Range("A17"))
-            Set pt = pc.CreatePivotTable(.Range("AA" & top_row), "PivotTableSHEETNAME1_FinalRec")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("QI Entity")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    '.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    'set Index 1 (Automatic) to True which sets all other values to False:
-                    .Subtotals(1) = True
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("Income Code Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 2
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("Exemption Code Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 3
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("Suggested Rate Adjusted")
-                    .Orientation = xlRowField
-                    .Position = 4
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set data field.
-                With .PivotFields("USD Gross Converted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-                ' Make QI Entity headings green
-                .PivotSelect "QI Entity[All]", xlDataAndLabel, True
-                Selection.Interior.Color = RGB(204, 255, 204)
-                ' Make QI Entity Sub totals yellow.
-                .PivotSelect "QI Entity[All;Total]", xlDataAndLabel, True
-                Selection.Interior.Color = RGB(255, 255, 153)
-            End With
-            ' ***** END PIVOT CREATION **** END PIVOT CREATION ***
-            ' Refresh the pivot tables.
-            For Each pt In .PivotTables
-                pt.RefreshTable
-                pt.Update
-            Next
-            ' Put text to display on the sheet.
-            ' Some text was overwritten by the pivot creation.
-            ' Other text is to replace the "Row Labels" fieldname that Excel 2007 automatically uses.
-            .Range("A" & top_row).Value = "Account"
-            .Range("A" & bottom_row - 2).Value = "G3"
-            .Range("A" & bottom_row - 2).Font.Bold = True
-            .Range("A" & bottom_row).Value = "Account"
-            .Range("I" & top_row).Value = "INC_CDE"
-            .Range("I" & bottom_row - 2).Value = "G3"
-            .Range("I" & bottom_row - 2).Font.Bold = True
-            .Range("I" & bottom_row).Value = "Income Code Adjusted"
-            .Range("S" & top_row).Value = "PMT_Curr"
-            .Range("S" & bottom_row - 2).Value = "G3"
-            .Range("S" & bottom_row - 2).Font.Bold = True
-            .Range("S" & bottom_row).Value = "BBH CCY Converted"
-            .Range("AA" & top_row).Value = "QI Entity"
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set pc = Nothing
-End Sub
-' Refresh the PIVOT tables on the ADJ DASHBOARD sheet.
-Sub M10810_Refresh_Adj_Dashboard_Pivots()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim pc As PivotCache
-    Dim pt As PivotTable
-    Dim top_row As Integer
-    Dim bottom_row As Integer
-    ' Set top and bottom row for pivots.
-    ' top_row is row in which pivots at the top are created.
-    ' bottom_row is row in which pivots below are created.
-    top_row = 5
-    bottom_row = 20
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Refresh Adj Dashboard Pivots?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    ' Stop alerts about replacing contents of cells.
-    Application.DisplayAlerts = False
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        With Sheets("ADJ DASHBOARD")
-            ' Activate the sheet.
-            .Activate
-            ' Delete all existing Pivot Tables in the worksheet.
-            ' In the TableRange1 property, page fields are excluded;
-            ' To select the entire PivotTable report, including the page fields, use the TableRange2 property.
-            For Each pt In .PivotTables
-                pt.TableRange2.Clear
-            Next pt
-            '**************************** REPORTING ADJUSTMENT SUMMARY **********************
-            ' Creating Pivot cache.
-            Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "SHEETNAME1!A1:BO" & lastrow_SHEETNAME1)
-            ' Creating Pivot table.
-            'Set pt = pc.CreatePivotTable(ws.Range("A17"))
-            Set pt = pc.CreatePivotTable(.Range("A" & top_row), "PivotTableSHEETNAME1")
-            ' Set the Pivot fields to display.
-            With pt
-                ' Turn off automatic updation of Pivot Table during the process of its creation to speed up code.
-                .ManualUpdate = True
-                ' Set row field.
-                With .PivotFields("BBH Income Type")
-                    .Orientation = xlRowField
-                    .Position = 1
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                With .PivotFields("Adjustment Description")
-                    .Orientation = xlRowField
-                    .Position = 2
-                    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                    .LayoutForm = xlTabular
-                End With
-                ' Set column field.
-                'With .PivotFields("USD Gross")
-                '    .Orientation = xlColumnField
-                '    .Position = 1
-                '    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                '    .LayoutForm = xlTabular
-                'End With
-                'With .PivotFields("Vol of Transactions")
-                '    .Orientation = xlColumnField
-                '    .Position = 1
-                '    .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
-                '    .LayoutForm = xlTabular
-                'End With
-                ' Set data field.
-                With .PivotFields("USD Gross Converted")
-                    .Orientation = xlDataField
-                    .Function = xlSum
-                    .NumberFormat = "#,##0"
-                    .Position = 1
-                End With
-                'With .PivotFields("Vol of Transactions")
-                With .PivotFields("Client Code")
-                    .Orientation = xlDataField
-                    .Function = xlCount
-                    .NumberFormat = "#,##0"
-                    .Position = 2
-                End With
-                ' Turn on automatic update / calculation in the Pivot Table.
-                .ManualUpdate = False
-                ' Get the actual data.
-                .RefreshTable
-                ' Make BBH Income Type headings green
-            '    .PivotSelect "USD Gross Converted[All;Total]", xlDataAndLabel, True
-            '    Selection.Interior.Color = RGB(204, 255, 204)
-                ' Make the Grand Total yellow.
-                .PivotSelect name:="Column Grand Total", Mode:=xlDataAndLabel, UseStandardName:=True
-                Selection.Interior.Color = vbYellow
-            End With
-            ' ***** END PIVOT CREATION **** END PIVOT CREATION ***
-            ' Refresh the pivot tables.
-            For Each pt In .PivotTables
-                pt.RefreshTable
-                pt.Update
-            Next
-            ' Put text to display on the sheet.
-            ' Some text was overwritten by the pivot creation.
-            ' Other text is to replace the "Row Labels" fieldname that Excel 2007 automatically uses.
-            .Range("A" & top_row + 1).Value = "BBH Income Type"
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set pc = Nothing
-End Sub
-' Reverts the Corrected Date, column E, in the FinalABC sheet back to its original calculated date.
-' It only does this for cells where column AJ does not still reconciles, i.e. does not show "MATCHED GROSS AMOUNT ISIN BY MONTH".
-' This requires the following columns to have formulae throughout:  E, L, K, AI, AJ
-Sub M10910_Revert_Reformatted_FinalABC_Corrected_Dates()
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Revert Reformatted FinalABC Corrected Dates?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            'lastrow = Workbooks(my1042Rec).Sheets("FinalABC").Range("D65536").End(xlUp).Row
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Change for formula in column E to add 1 to the date.
-            ' This should make dates that are the last day of the month now reflect the 1st of the following month.
-            .Range("E2").Formula = "=TEXT(MID(F2,FIND("" "",F2)+1,FIND("","",F2)-FIND("" "",F2)-1)&"" ""&LEFT(F2,FIND("" "",F2)-1)&"" ""&RIGHT(F2,4),""dd/mm/yyyy"")"
-            ' Copies formulae down.
-            .Range("A2:C2").AutoFill Destination:=.Range("A2:C" & lastrow_FinalABC)
-            .Range("E2").AutoFill Destination:=.Range("E2:E" & lastrow_FinalABC)
-            .Range("K2:N2").AutoFill Destination:=.Range("K2:N" & lastrow_FinalABC)
-            .Range("P2:Q2").AutoFill Destination:=.Range("P2:Q" & lastrow_FinalABC)
-            .Range("AI2:AM2").AutoFill Destination:=.Range("AI2:AM" & lastrow_FinalABC)
-            .Range("AR2:AT2").AutoFill Destination:=.Range("AR2:AT" & lastrow_FinalABC)
-            ' Calculations.
-            .Range("E2:E" & lastrow_FinalABC).Calculate
-            .Range("A2:C" & lastrow_FinalABC).Calculate
-            .Range("P2:Q" & lastrow_FinalABC).Calculate
-            .Range("K2:N" & lastrow_FinalABC).Calculate
-            .Range("AI2:AM" & lastrow_FinalABC).Calculate
-            .Range("AR2:AT" & lastrow_FinalABC).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("E3:E" & lastrow_FinalABC) = .Range("E3:E" & lastrow_FinalABC).Value
-            .Range("A3:A" & lastrow_FinalABC) = .Range("A3:A" & lastrow_FinalABC).Value
-            .Range("K3:N" & lastrow_FinalABC) = .Range("K3:L" & lastrow_FinalABC).Value
-            .Range("P3:Q" & lastrow_FinalABC) = .Range("P3:q" & lastrow_FinalABC).Value
-            .Range("AI3:AM" & lastrow_FinalABC) = .Range("AI3:AM" & lastrow_FinalABC).Value
-            .Range("AR3:AT" & lastrow_FinalABC) = .Range("AR3:AT" & lastrow_FinalABC).Value
-        End With
-    End With
-End Sub
-' Clears formatting on the SHEETNAME1 sheet.  Removes the lines between ISINs.
-Sub M11000_Clear_SHEETNAME1_lines()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Clear format lines on the SHEETNAME1 sheet?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Clear any double lines.  These are used to flag where the ISIN changes.
-            .Range("A1:BO" & lastrow_SHEETNAME1).Borders.LineStyle = xlNone
-        End With
-    End With
-End Sub
-' Clears formatting on the FinalABC sheet.  Removes the lines between ISINs.
-Sub M11110_Clear_FinalABC_lines()
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Clear format lines on the FinalABC sheet?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Clear any double lines.  These are used to flag where the ISIN changes.
-            .Range("A1:AT" & lastrow_FinalABC).Borders.LineStyle = xlNone
-        End With
-    End With
-End Sub
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub M11200_Recalc_changed_adjusted_rows_Array()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim recalc As Boolean
-    Dim recalc_row As Boolean
-    Dim FinalABC_ISIN As String
-    Dim SHEETNAME1_ISIN As String
-    Dim rng As Range
-    Dim var As Variant
-    Dim i As Long
-    Dim J As Long
-    Dim tmpMonth1 As String
-    Dim tmpMonth2 As String
-    Dim pt As PivotTable
-    Dim column_k As Variant
-    Dim column_y As Variant
-    Dim column_ac As Variant
-    Dim column_ad As Variant
-    Dim column_ae As Variant
-    Dim column_af As Variant
-    Dim column_ah As Variant
-    Dim column_ai As Variant
-    Dim column_al As Variant
-    Dim column_am As Variant
-    Dim column_at As Variant
-    Dim column_au As Variant
-    Dim working As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc changed adjusted SHEETNAME1 rows?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-        ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ac(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ae(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ah(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_al(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_at(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-        ' Check SHEETNAME1 for changes.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Load working with dummy values - just to set its size.
-            working = .Range("D1:D" & lastrow_SHEETNAME1)
-            ' Load SHEETNAME1 columns into array variables.
-            column_k = .Range("K1:K" & lastrow_SHEETNAME1)
-            column_y = .Range("Y1:Y" & lastrow_SHEETNAME1)
-            column_ac = .Range("AC1:AC" & lastrow_SHEETNAME1)
-            column_ad = .Range("AD1:AD" & lastrow_SHEETNAME1)
-            column_ae = .Range("AE1:AE" & lastrow_SHEETNAME1)
-            column_af = .Range("AF1:AF" & lastrow_SHEETNAME1)
-            column_ah = .Range("AH1:AH" & lastrow_SHEETNAME1)
-            column_ai = .Range("AI1:AI" & lastrow_SHEETNAME1)
-            column_al = .Range("AL1:AL" & lastrow_SHEETNAME1)
-            column_am = .Range("AM1:AM" & lastrow_SHEETNAME1)
-            column_at = .Range("AT1:AT" & lastrow_SHEETNAME1)
-            column_au = .Range("AU1:AU" & lastrow_SHEETNAME1)
-            For i = LBound(working) To UBound(working)
-                ' If row 1, heading, skip
-                If i = 1 Then
-                    GoTo NextIteration ' next i
-                End If
-                ' Default to false
-                recalc_row = False
-                ' Tax rate adjusted.
-                If column_k(i, 1) <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude.
-                If column_y(i, 1) <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If column_ad(i, 1) <> "" Then
-                    If column_ad(i, 1) <> column_ac(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Exemption Code Adjusted.
-                If column_af(i, 1) <> "" Then
-                    If column_af(i, 1) <> column_ae(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH Rate Adjusted.
-                If column_ai(i, 1) <> "" Then
-                    If column_ai(i, 1) <> column_ah(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH CCY Adjusted.
-                If column_am(i, 1) <> "" Then
-                    If column_am(i, 1) <> column_al(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Suggested Rate Adjusted.
-                If column_au(i, 1) <> "" Then
-                    If column_au(i, 1) <> column_at(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("A" & i & ":A" & i).Formula = .Range("A2:A2").FormulaR1C1
-                    .Range("B" & i & ":B" & i).Formula = .Range("B2:B2").FormulaR1C1
-                    .Range("F" & i & ":F" & i).Formula = .Range("F2:F2").FormulaR1C1
-                    .Range("H" & i & ":H" & i).Formula = .Range("H2:H2").FormulaR1C1
-                    .Range("J" & i & ":J" & i).Formula = .Range("J2:J2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("T" & i & ":T" & i).Formula = .Range("T2:T2").FormulaR1C1
-                    .Range("V" & i & ":V" & i).Formula = .Range("V2:V2").FormulaR1C1
-                    .Range("W" & i & ":W" & i).Formula = .Range("W2:W2").FormulaR1C1
-                    .Range("X" & i & ":X" & i).Formula = .Range("X2:X2").FormulaR1C1
-                    .Range("AB" & i & ":AB" & i).Formula = .Range("AB2:AB2").FormulaR1C1
-                    .Range("AC" & i & ":AC" & i).Formula = .Range("AC2:AC2").FormulaR1C1
-                    .Range("AE" & i & ":AE" & i).Formula = .Range("AE2:AE2").FormulaR1C1
-                    .Range("AG" & i & ":AG" & i).Formula = .Range("AG2:AG2").FormulaR1C1
-                    .Range("AH" & i & ":AH" & i).Formula = .Range("AH2:AH2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AN" & i & ":AN" & i).Formula = .Range("AN2:AN2").FormulaR1C1
-                    .Range("AO" & i & ":AO" & i).Formula = .Range("AO2:AO2").FormulaR1C1
-                    .Range("AP" & i & ":AP" & i).Formula = .Range("AP2:AP2").FormulaR1C1
-                    .Range("AQ" & i & ":AQ" & i).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    .Range("AV" & i & ":AU" & i).Formula = .Range("AV2:AV2").FormulaR1C1
-                    .Range("AW" & i & ":AW" & i).Formula = .Range("AW2:AW2").FormulaR1C1
-                    .Range("AX" & i & ":AX" & i).Formula = .Range("AX2:AX2").FormulaR1C1
-                    .Range("AY" & i & ":AY" & i).Formula = .Range("AY2:AY2").FormulaR1C1
-                    .Range("BB" & i & ":BB" & i).Formula = .Range("BB2:BB2").FormulaR1C1
-                    .Range("BD" & i & ":BD" & i).Formula = .Range("BD2:BD2").FormulaR1C1
-                    .Range("BE" & i & ":BE" & i).Formula = .Range("BE2:BE2").FormulaR1C1
-                    .Range("BG" & i & ":BG" & i).Formula = .Range("BG2:BG2").FormulaR1C1
-                    .Range("BH" & i & ":BH" & i).Formula = .Range("BH2:BH2").FormulaR1C1
-                    .Range("BI" & i & ":BI" & i).Formula = .Range("BI2:BI2").FormulaR1C1
-                    .Range("BJ" & i & ":BJ" & i).Formula = .Range("BJ2:JI2").FormulaR1C1
-                    .Range("BK" & i & ":BK" & i).Formula = .Range("BK2:BK2").FormulaR1C1
-                    .Range("BL" & i & ":BL" & i).Formula = .Range("BL2:BL2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":BO" & i).Calculate
-                End If
-                ' TODO - Add in here loop for all affected lines in FinalABC sheet with same ISIN.
-                ' Then we can remove the below copy all BBH formulae down.
-NextIteration:
-            Next i
-        End With
-        If recalc = True Then
-            ' Refresh all impacted formula on the FinalABC sheet.
-            With Sheets("FinalABC")
-                ' Activate the FinalABC sheet.
-                .Activate
-                .Range("K2:K2").AutoFill Destination:=.Range("K2:K" & lastrow_FinalABC)
-                .Range("L2:L2").AutoFill Destination:=.Range("L2:L" & lastrow_FinalABC)
-                .Range("M2:M2").AutoFill Destination:=.Range("M2:M" & lastrow_FinalABC)
-                .Range("N2:N2").AutoFill Destination:=.Range("N2:N" & lastrow_FinalABC)
-                .Range("P2:P2").AutoFill Destination:=.Range("P2:P" & lastrow_FinalABC)
-                .Range("Q2:Q2").AutoFill Destination:=.Range("Q2:Q" & lastrow_FinalABC)
-                .Range("AI2:AI2").AutoFill Destination:=.Range("AI2:AI" & lastrow_FinalABC)
-                .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_FinalABC)
-                .Range("AK2:AK2").AutoFill Destination:=.Range("AK2:AK" & lastrow_FinalABC)
-                .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_FinalABC)
-                .Range("AM2:AM2").AutoFill Destination:=.Range("AM2:AM" & lastrow_FinalABC)
-                .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_FinalABC)
-                .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_FinalABC)
-                .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_FinalABC)
-                ' Recalculate the entire row.
-                '.Range("AK2:AK" & FinalABC_lastrow).Calculate
-            End With
-            ' Recalculate all worksheets.
-            Application.Calculate
-            ' Do refresh of pivots.
-            With Sheets("Mapping Pivots")
-                ' Activate the Mapping Pivots sheet.
-                .Activate
-                ' Refresh the pivot tables.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-            ' Recalculate all worksheets again to pick up Pivot values.
-            Application.Calculate
-            ' Now convert all impacted formulae back to values.
-            'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-            ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-            With Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                .Range("K3:K" & lastrow_FinalABC) = .Range("K3:K" & lastrow_FinalABC).Value
-                .Range("L3:L" & lastrow_FinalABC) = .Range("L3:L" & lastrow_FinalABC).Value
-                .Range("M3:M" & lastrow_FinalABC) = .Range("M3:M" & lastrow_FinalABC).Value
-                .Range("N3:N" & lastrow_FinalABC) = .Range("N3:N" & lastrow_FinalABC).Value
-                .Range("P3:P" & lastrow_FinalABC) = .Range("P3:P" & lastrow_FinalABC).Value
-                .Range("Q3:Q" & lastrow_FinalABC) = .Range("Q3:Q" & lastrow_FinalABC).Value
-                .Range("AI3:AI" & lastrow_FinalABC) = .Range("AI3:AI" & lastrow_FinalABC).Value
-                .Range("AJ3:AJ" & lastrow_FinalABC) = .Range("AJ3:AJ" & lastrow_FinalABC).Value
-                .Range("AK3:AK" & lastrow_FinalABC) = .Range("AK3:AK" & lastrow_FinalABC).Value
-                .Range("AL3:AL" & lastrow_FinalABC) = .Range("AL3:AL" & lastrow_FinalABC).Value
-                .Range("AM3:AM" & lastrow_FinalABC) = .Range("AM3:AM" & lastrow_FinalABC).Value
-                .Range("AR3:AR" & lastrow_FinalABC) = .Range("AR3:AR" & lastrow_FinalABC).Value
-                .Range("AS3:AS" & lastrow_FinalABC) = .Range("AS3:AS" & lastrow_FinalABC).Value
-                .Range("AT3:AT" & lastrow_FinalABC) = .Range("AT3:AT" & lastrow_FinalABC).Value
-            End With
-        End If
-        ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the changing of the formula back to values.
-        recalc = False
-        ' Check SHEETNAME1 for changes.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Load working with dummy values - just to set its size.
-            working = Range("D1:D" & lastrow_SHEETNAME1)
-            ' Load SHEETNAME1 columns into array variables.
-            column_k = .Range("K1:K" & lastrow_SHEETNAME1)
-            column_y = .Range("Y1:Y" & lastrow_SHEETNAME1)
-            column_ac = .Range("AC1:AC" & lastrow_SHEETNAME1)
-            column_ad = .Range("AD1:AD" & lastrow_SHEETNAME1)
-            column_ae = .Range("AE1:AE" & lastrow_SHEETNAME1)
-            column_af = .Range("AF1:AF" & lastrow_SHEETNAME1)
-            column_ah = .Range("AH1:AH" & lastrow_SHEETNAME1)
-            column_ai = .Range("AI1:AI" & lastrow_SHEETNAME1)
-            column_al = .Range("AL1:AL" & lastrow_SHEETNAME1)
-            column_am = .Range("AM1:AM" & lastrow_SHEETNAME1)
-            column_at = .Range("AT1:AT" & lastrow_SHEETNAME1)
-            column_au = .Range("AU1:AU" & lastrow_SHEETNAME1)
-            For i = LBound(working) To UBound(working)
-                ' If row 1, heading, skip
-                If i = 1 Then
-                    GoTo NextIteration2 ' next i
-                End If
-                ' Default to false
-                recalc_row = False
-                ' Tax rate adjusted.
-                If column_k(i, 1) <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude.
-                If column_y(i, 1) <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If column_ad(i, 1) <> "" Then
-                    If column_ad(i, 1) <> column_ac(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Exemption Code Adjusted.
-                If column_af(i, 1) <> "" Then
-                    If column_af(i, 1) <> column_ae(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH Rate Adjusted.
-                If column_ai(i, 1) <> "" Then
-                    If column_ai(i, 1) <> column_ah(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH CCY Adjusted.
-                If column_am(i, 1) <> "" Then
-                    If column_am(i, 1) <> column_al(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Suggested Rate Adjusted.
-                If column_au(i, 1) <> "" Then
-                    If column_au(i, 1) <> column_at(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    'recalc = True
-                    If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                        .Range("A" & i & ":A" & i) = .Range("A" & i & ":A" & i).Value
-                        .Range("B" & i & ":B" & i) = .Range("B" & i & ":B" & i).Value
-                        .Range("F" & i & ":F" & i) = .Range("F" & i & ":F" & i).Value
-                        .Range("H" & i & ":H" & i) = .Range("H" & i & ":H" & i).Value
-                        .Range("J" & i & ":J" & i) = .Range("J" & i & ":J" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("T" & i & ":T" & i) = .Range("T" & i & ":T" & i).Value
-                        .Range("V" & i & ":V" & i) = .Range("V" & i & ":V" & i).Value
-                        .Range("W" & i & ":W" & i) = .Range("W" & i & ":W" & i).Value
-                        .Range("X" & i & ":X" & i) = .Range("X" & i & ":X" & i).Value
-                        .Range("AB" & i & ":AB" & i) = .Range("AB" & i & ":AB" & i).Value
-                        .Range("AC" & i & ":AC" & i) = .Range("AC" & i & ":AC" & i).Value
-                        .Range("AE" & i & ":AE" & i) = .Range("AE" & i & ":AE" & i).Value
-                        .Range("AG" & i & ":AG" & i) = .Range("AG" & i & ":AG" & i).Value
-                        .Range("AH" & i & ":AH" & i) = .Range("AH" & i & ":AH" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AN" & i & ":AN" & i) = .Range("AN" & i & ":AN" & i).Value
-                        .Range("AO" & i & ":AO" & i) = .Range("AO" & i & ":AO" & i).Value
-                        .Range("AP" & i & ":AP" & i) = .Range("AP" & i & ":AP" & i).Value
-                        .Range("AQ" & i & ":AQ" & i) = .Range("AQ" & i & ":AQ" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                        .Range("AV" & i & ":AV" & i) = .Range("AV" & i & ":AV" & i).Value
-                        .Range("AW" & i & ":AW" & i) = .Range("AW" & i & ":AW" & i).Value
-                        .Range("AX" & i & ":AX" & i) = .Range("AX" & i & ":AX" & i).Value
-                        .Range("AY" & i & ":AY" & i) = .Range("AY" & i & ":AY" & i).Value
-                        .Range("BB" & i & ":BB" & i) = .Range("BB" & i & ":BB" & i).Value
-                        .Range("BD" & i & ":BD" & i) = .Range("BD" & i & ":BD" & i).Value
-                        .Range("BE" & i & ":BE" & i) = .Range("BE" & i & ":BE" & i).Value
-                        .Range("BG" & i & ":BG" & i) = .Range("BG" & i & ":BG" & i).Value
-                        .Range("BH" & i & ":BH" & i) = .Range("BH" & i & ":BH" & i).Value
-                        .Range("BI" & i & ":BI" & i) = .Range("BI" & i & ":BI" & i).Value
-                        .Range("BJ" & i & ":BJ" & i) = .Range("BJ" & i & ":BJ" & i).Value
-                        .Range("BK" & i & ":BK" & i) = .Range("BK" & i & ":BK" & i).Value
-                        .Range("BL" & i & ":BL" & i) = .Range("BL" & i & ":BL" & i).Value
-                    End If
-                End If
-NextIteration2:
-            Next i
-        End With
-        '*********************************************************************************************
-        ' Check FinalABC for adjustment changes.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        For i = 2 To lastrow_FinalABC
-            ' Default to false
-            recalc_row = False
-            recalc = False
-            ' Check FinalABC for changes.
-            With .Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                ' USD Adjustments.
-                If .Range("J" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Tax Rate Adjusted
-                If .Range("R" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Adjusted date.
-                tmpMonth1 = UCase(Left(.Range("F" & i).Value, 3))
-                tmpMonth2 = UCase(Left(Right(.Range("A" & i).Value, 8), 3))
-                If (tmpMonth1 <> tmpMonth2) Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("K" & i & ":K" & i).Formula = .Range("K2:K2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("N" & i & ":N" & i).Formula = .Range("N2:N2").FormulaR1C1
-                    .Range("P" & i & ":P" & i).Formula = .Range("P2:P2").FormulaR1C1
-                    .Range("Q" & i & ":Q" & i).Formula = .Range("Q2:Q2").FormulaR1C1
-                    .Range("AI" & i & ":AI" & i).Formula = .Range("AI2:AI2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AM" & i & ":AM" & i).Formula = .Range("AM2:AM2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":AR" & i).Calculate
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    FinalABC_ISIN = .Range("A" & i).Value
-                End If
-            End With
-            If recalc = True Then
-                ' Do refresh of Mapping pivots
-                With .Sheets("Mapping Pivots")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Refresh the pivots.
-                    For Each pt In .PivotTables
-                        pt.RefreshTable
-                        pt.Update
-                    Next
-                End With
-                ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                With .Sheets("SHEETNAME1")
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to formulae.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                .Range("A" & J & ":A" & J).Formula = .Range("A2:A2").FormulaR1C1
-                                .Range("B" & J & ":B" & J).Formula = .Range("B2:B2").FormulaR1C1
-                                .Range("F" & J & ":F" & J).Formula = .Range("F2:F2").FormulaR1C1
-                                .Range("H" & J & ":H" & J).Formula = .Range("H2:H2").FormulaR1C1
-                                .Range("J" & J & ":J" & J).Formula = .Range("J2:J2").FormulaR1C1
-                                .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                                .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                                .Range("T" & J & ":T" & J).Formula = .Range("T2:T2").FormulaR1C1
-                                .Range("V" & J & ":V" & J).Formula = .Range("V2:V2").FormulaR1C1
-                                .Range("W" & J & ":W" & J).Formula = .Range("W2:W2").FormulaR1C1
-                                .Range("X" & J & ":X" & J).Formula = .Range("X2:X2").FormulaR1C1
-                                .Range("AB" & J & ":AB" & J).Formula = .Range("AB2:AB2").FormulaR1C1
-                                .Range("AC" & J & ":AD" & J).Formula = .Range("AC2:AC2").FormulaR1C1
-                                .Range("AE" & J & ":AE" & J).Formula = .Range("AE2:AE2").FormulaR1C1
-                                .Range("AG" & J & ":AG" & J).Formula = .Range("AG2:AG2").FormulaR1C1
-                                .Range("AH" & J & ":AH" & J).Formula = .Range("AH2:AH2").FormulaR1C1
-                                .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                                .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                                .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                                .Range("AN" & J & ":AN" & J).Formula = .Range("AN2:AN2").FormulaR1C1
-                                .Range("AO" & J & ":AO" & J).Formula = .Range("AO2:AO2").FormulaR1C1
-                                .Range("AP" & J & ":AP" & J).Formula = .Range("AP2:AP2").FormulaR1C1
-                                .Range("AQ" & J & ":AQ" & J).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                                .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                                .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                                .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                                .Range("AV" & J & ":AV" & J).Formula = .Range("AV2:AV2").FormulaR1C1
-                                .Range("AW" & J & ":AW" & J).Formula = .Range("AW2:AW2").FormulaR1C1
-                                .Range("AX" & J & ":AX" & J).Formula = .Range("AX2:AX2").FormulaR1C1
-                                .Range("AY" & J & ":AY" & J).Formula = .Range("AY2:AY2").FormulaR1C1
-                                .Range("BB" & J & ":BB" & J).Formula = .Range("BB2:BB2").FormulaR1C1
-                                .Range("BD" & J & ":BD" & J).Formula = .Range("BD2:BD2").FormulaR1C1
-                                .Range("BE" & J & ":BE" & J).Formula = .Range("BE2:BE2").FormulaR1C1
-                                .Range("BG" & J & ":BG" & J).Formula = .Range("BG2:BG2").FormulaR1C1
-                                .Range("BH" & J & ":BH" & J).Formula = .Range("BH2:BH2").FormulaR1C1
-                                .Range("BI" & J & ":BI" & J).Formula = .Range("BI2:BI2").FormulaR1C1
-                                .Range("BJ" & J & ":BJ" & J).Formula = .Range("BJ2:BJ2").FormulaR1C1
-                                .Range("BK" & J & ":BK" & J).Formula = .Range("BK2:BK2").FormulaR1C1
-                                .Range("BL" & J & ":BL" & J).Formula = .Range("BL2:BL2").FormulaR1C1
-                                ' Recalculate the entire row.
-                                .Range("A" & J & ":BO" & J).Calculate
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet."
-                        End If
-                    End If
-                End With
-                ' Recalculate all worksheets.
-                Application.Calculate
-                ' Now convert all impacted formulae back to values.
-                'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-                ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-                If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                    With .Sheets("FinalABC")
-                        ' Activate the sheet.
-                        .Activate
-                        .Range("K" & i & ":K" & i) = .Range("K" & i & ":K" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("N" & i & ":N" & i) = .Range("N" & i & ":N" & i).Value
-                        .Range("P" & i & ":P" & i) = .Range("P" & i & ":P" & i).Value
-                        .Range("Q" & i & ":Q" & i) = .Range("Q" & i & ":Q" & i).Value
-                        .Range("AI" & i & ":AI" & i) = .Range("AI" & i & ":AI" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AM" & i & ":AM" & i) = .Range("AM" & i & ":AM" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                    End With
-                End If
-                ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-                With .Sheets("SHEETNAME1")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to values.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                If (J > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                                    .Range("A" & J & ":A" & J) = .Range("A" & J & ":A" & J).Value
-                                    .Range("B" & J & ":B" & J) = .Range("B" & J & ":B" & J).Value
-                                    .Range("F" & J & ":F" & J) = .Range("F" & J & ":F" & J).Value
-                                    .Range("H" & J & ":H" & J) = .Range("H" & J & ":H" & J).Value
-                                    .Range("J" & J & ":J" & J) = .Range("J" & J & ":J" & J).Value
-                                    .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                    .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                    .Range("T" & J & ":T" & J) = .Range("T" & J & ":T" & J).Value
-                                    .Range("V" & J & ":V" & J) = .Range("V" & J & ":V" & J).Value
-                                    .Range("W" & J & ":W" & J) = .Range("W" & J & ":W" & J).Value
-                                    .Range("X" & J & ":X" & J) = .Range("X" & J & ":X" & J).Value
-                                    .Range("AB" & J & ":AB" & J) = .Range("AB" & J & ":AB" & J).Value
-                                    .Range("AC" & J & ":AC" & J) = .Range("AC" & J & ":AC" & J).Value
-                                    .Range("AE" & J & ":AE" & J) = .Range("AE" & J & ":AE" & J).Value
-                                    .Range("AG" & J & ":AG" & J) = .Range("AG" & J & ":AG" & J).Value
-                                    .Range("AH" & J & ":AH" & J) = .Range("AH" & J & ":AH" & J).Value
-                                    .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                    .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                    .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                    .Range("AN" & J & ":AN" & J) = .Range("AN" & J & ":AN" & J).Value
-                                    .Range("AO" & J & ":AO" & J) = .Range("AO" & J & ":AO" & J).Value
-                                    .Range("AP" & J & ":AP" & J) = .Range("AP" & J & ":AP" & J).Value
-                                    .Range("AQ" & J & ":AQ" & J) = .Range("AQ" & J & ":AQ" & J).Value
-                                    .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                    .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                    .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                    .Range("AV" & J & ":AV" & J) = .Range("AV" & J & ":AV" & J).Value
-                                    .Range("AW" & J & ":AW" & J) = .Range("AW" & J & ":AW" & J).Value
-                                    .Range("AX" & J & ":AX" & J) = .Range("AX" & J & ":AX" & J).Value
-                                    .Range("AY" & J & ":AY" & J) = .Range("AY" & J & ":AY" & J).Value
-                                    .Range("BB" & J & ":BB" & J) = .Range("BB" & J & ":BB" & J).Value
-                                    .Range("BD" & J & ":BD" & J) = .Range("BD" & J & ":BD" & J).Value
-                                    .Range("BE" & J & ":BE" & J) = .Range("BE" & J & ":BE" & J).Value
-                                    .Range("BG" & J & ":BG" & J) = .Range("BG" & J & ":BG" & J).Value
-                                    .Range("BH" & J & ":BH" & J) = .Range("BH" & J & ":BH" & J).Value
-                                    .Range("BI" & J & ":BI" & J) = .Range("BI" & J & ":BI" & J).Value
-                                    .Range("BJ" & J & ":BJ" & J) = .Range("BJ" & J & ":BJ" & J).Value
-                                    .Range("BK" & J & ":BK" & J) = .Range("BK" & J & ":BK" & J).Value
-                                    .Range("BL" & J & ":BL" & J) = .Range("BL" & J & ":BL" & J).Value
-                                End If
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet."
-                        End If
-                    End If
-                End With
-            End If
-        Next i
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set rng = Nothing
-    Set var = Nothing
-    Set working = Nothing
-    Set column_k = Nothing
-    Set column_y = Nothing
-    Set column_ac = Nothing
-    Set column_ad = Nothing
-    Set column_ae = Nothing
-    Set column_af = Nothing
-    Set column_ah = Nothing
-    Set column_ai = Nothing
-    Set column_al = Nothing
-    Set column_am = Nothing
-    Set column_at = Nothing
-    Set column_au = Nothing
-End Sub
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub M11205_Recalc_changed_adjusted_rows_Array_NEW()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim recalc As Boolean
-    Dim recalc_row As Boolean
-    Dim FinalABC_ISIN As String
-    Dim SHEETNAME1_ISIN As String
-    Dim rng As Range
-    Dim var As Variant
-    Dim i As Long
-    Dim J As Long
-    Dim tmpMonth1 As String
-    Dim tmpMonth2 As String
-    Dim pt As PivotTable
-    Dim column_k As Variant
-    Dim column_y As Variant
-    Dim column_ac As Variant
-    Dim column_ad As Variant
-    Dim column_ae As Variant
-    Dim column_af As Variant
-    Dim column_ah As Variant
-    Dim column_ai As Variant
-    Dim column_al As Variant
-    Dim column_am As Variant
-    Dim column_at As Variant
-    Dim column_au As Variant
-    Dim working As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc changed adjusted SHEETNAME1 rows?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-        ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ac(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ae(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ah(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_al(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_at(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-        ' Check SHEETNAME1 for changes.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Load working with dummy values - just to set its size.
-            working = .Range("D1:D" & lastrow_SHEETNAME1)
-            ' Load SHEETNAME1 columns into array variables.
-            column_k = .Range("K1:K" & lastrow_SHEETNAME1)
-            column_y = .Range("Y1:Y" & lastrow_SHEETNAME1)
-            column_ac = .Range("AC1:AC" & lastrow_SHEETNAME1)
-            column_ad = .Range("AD1:AD" & lastrow_SHEETNAME1)
-            column_ae = .Range("AE1:AE" & lastrow_SHEETNAME1)
-            column_af = .Range("AF1:AF" & lastrow_SHEETNAME1)
-            column_ah = .Range("AH1:AH" & lastrow_SHEETNAME1)
-            column_ai = .Range("AI1:AI" & lastrow_SHEETNAME1)
-            column_al = .Range("AL1:AL" & lastrow_SHEETNAME1)
-            column_am = .Range("AM1:AM" & lastrow_SHEETNAME1)
-            column_at = .Range("AT1:AT" & lastrow_SHEETNAME1)
-            column_au = .Range("AU1:AU" & lastrow_SHEETNAME1)
-            For i = LBound(working) To UBound(working)
-                ' If row 1, heading, skip
-                If i = 1 Then
-                    GoTo NextIteration ' next i
-                End If
-                ' Default to false
-                recalc_row = False
-                ' Tax rate adjusted.
-                If column_k(i, 1) <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude.
-                If column_y(i, 1) <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If column_ad(i, 1) <> "" Then
-                    If column_ad(i, 1) <> column_ac(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Exemption Code Adjusted.
-                If column_af(i, 1) <> "" Then
-                    If column_af(i, 1) <> column_ae(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH Rate Adjusted.
-                If column_ai(i, 1) <> "" Then
-                    If column_ai(i, 1) <> column_ah(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH CCY Adjusted.
-                If column_am(i, 1) <> "" Then
-                    If column_am(i, 1) <> column_al(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Suggested Rate Adjusted.
-                If column_au(i, 1) <> "" Then
-                    If column_au(i, 1) <> column_at(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    SHEETNAME1_ISIN = .Range("A" & i).Value
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("A" & i & ":A" & i).Formula = .Range("A2:A2").FormulaR1C1
-                    .Range("B" & i & ":B" & i).Formula = .Range("B2:B2").FormulaR1C1
-                    .Range("F" & i & ":F" & i).Formula = .Range("F2:F2").FormulaR1C1
-                    .Range("H" & i & ":H" & i).Formula = .Range("H2:H2").FormulaR1C1
-                    .Range("J" & i & ":J" & i).Formula = .Range("J2:J2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("T" & i & ":T" & i).Formula = .Range("T2:T2").FormulaR1C1
-                    .Range("V" & i & ":V" & i).Formula = .Range("V2:V2").FormulaR1C1
-                    .Range("W" & i & ":W" & i).Formula = .Range("W2:W2").FormulaR1C1
-                    .Range("X" & i & ":X" & i).Formula = .Range("X2:X2").FormulaR1C1
-                    .Range("AB" & i & ":AB" & i).Formula = .Range("AB2:AB2").FormulaR1C1
-                    .Range("AC" & i & ":AC" & i).Formula = .Range("AC2:AC2").FormulaR1C1
-                    .Range("AE" & i & ":AE" & i).Formula = .Range("AE2:AE2").FormulaR1C1
-                    .Range("AG" & i & ":AG" & i).Formula = .Range("AG2:AG2").FormulaR1C1
-                    .Range("AH" & i & ":AH" & i).Formula = .Range("AH2:AH2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AN" & i & ":AN" & i).Formula = .Range("AN2:AN2").FormulaR1C1
-                    .Range("AO" & i & ":AO" & i).Formula = .Range("AO2:AO2").FormulaR1C1
-                    .Range("AP" & i & ":AP" & i).Formula = .Range("AP2:AP2").FormulaR1C1
-                    .Range("AQ" & i & ":AQ" & i).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    .Range("AV" & i & ":AU" & i).Formula = .Range("AV2:AV2").FormulaR1C1
-                    .Range("AW" & i & ":AW" & i).Formula = .Range("AW2:AW2").FormulaR1C1
-                    .Range("AX" & i & ":AX" & i).Formula = .Range("AX2:AX2").FormulaR1C1
-                    .Range("AY" & i & ":AY" & i).Formula = .Range("AY2:AY2").FormulaR1C1
-                    .Range("BB" & i & ":BB" & i).Formula = .Range("BB2:BB2").FormulaR1C1
-                    .Range("BD" & i & ":BD" & i).Formula = .Range("BD2:BD2").FormulaR1C1
-                    .Range("BE" & i & ":BE" & i).Formula = .Range("BE2:BE2").FormulaR1C1
-                    .Range("BG" & i & ":BG" & i).Formula = .Range("BG2:BG2").FormulaR1C1
-                    .Range("BH" & i & ":BH" & i).Formula = .Range("BH2:BH2").FormulaR1C1
-                    .Range("BI" & i & ":BI" & i).Formula = .Range("BI2:BI2").FormulaR1C1
-                    .Range("BJ" & i & ":BJ" & i).Formula = .Range("BJ2:JI2").FormulaR1C1
-                    .Range("BK" & i & ":BK" & i).Formula = .Range("BK2:BK2").FormulaR1C1
-                    .Range("BL" & i & ":BL" & i).Formula = .Range("BL2:BL2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":BO" & i).Calculate
-'--------------------------------------------------------------------------
-                    ' TODO - Add in here loop for all affected lines in FinalABC sheet with same ISIN.
-                    ' Then we can remove the below copy all BBH formulae down.
-                    ' Now get index of first row in FinalABC sheet that contains same affected ISIN.
-                    With Sheets("FinalABC")
-                        Set rng = .Range("A1:A" & lastrow_FinalABC)
-                        If WorksheetFunction.CountIf(rng, SHEETNAME1_ISIN) > 0 Then
-                            var = WorksheetFunction.Match(SHEETNAME1_ISIN, rng, 0)
-                            If Not IsError(var) Then
-                                J = var
-                                FinalABC_ISIN = .Range("A" & J).Value
-                                ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                                ' Convert all formula cells in the row back to formulae.
-                                While .Range("A" & J).Value = FinalABC_ISIN
-                                    ' Convert all formula cells in the row back to formulae.
-                                    .Range("K" & J & ":K" & J).Formula = .Range("K2:K2").FormulaR1C1
-                                    .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                                    .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                                    .Range("N" & J & ":N" & J).Formula = .Range("N2:N2").FormulaR1C1
-                                    .Range("P" & J & ":P" & J).Formula = .Range("P2:P2").FormulaR1C1
-                                    .Range("Q" & J & ":Q" & J).Formula = .Range("Q2:Q2").FormulaR1C1
-                                    .Range("AI" & J & ":AI" & J).Formula = .Range("AI2:AI2").FormulaR1C1
-                                    .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                                    .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                                    .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                                    .Range("AM" & J & ":AM" & J).Formula = .Range("AM2:AM2").FormulaR1C1
-                                    .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                                    .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                                    .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                                    ' Recalculate the entire row.
-                                    .Range("A" & J & ":AT" & J).Calculate
-                                    ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-                                    If (J > 2) Then
-                                        .Range("K" & J & ":K" & J) = .Range("K" & J & ":K" & J).Value
-                                        .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                        .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                        .Range("N" & J & ":N" & J) = .Range("N" & J & ":N" & J).Value
-                                        .Range("P" & J & ":P" & J) = .Range("P" & J & ":P" & J).Value
-                                        .Range("Q" & J & ":Q" & J) = .Range("Q" & J & ":Q" & J).Value
-                                        .Range("AI" & J & ":AI" & J) = .Range("AI" & J & ":AI" & J).Value
-                                        .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                        .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                        .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                        .Range("AM" & J & ":AM" & J) = .Range("AM" & J & ":AM" & J).Value
-                                        .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                        .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                        .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                    End If
-                                    ' next row
-                                    J = J + 1
-                                Wend
-                            Else
-                                Message "The ISIN " & SHEETNAME1_ISIN & " cannot be found in the FinalABC sheet."
-                            End If
-                        End If
-                    End With
-                    ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-                    If (i > 2) Then
-                        .Range("A" & i & ":A" & i) = .Range("A" & i & ":A" & i).Value
-                        .Range("B" & i & ":B" & i) = .Range("B" & i & ":B" & i).Value
-                        .Range("F" & i & ":F" & i) = .Range("F" & i & ":F" & i).Value
-                        .Range("H" & i & ":H" & i) = .Range("H" & i & ":H" & i).Value
-                        .Range("J" & i & ":J" & i) = .Range("J" & i & ":J" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("T" & i & ":T" & i) = .Range("T" & i & ":T" & i).Value
-                        .Range("V" & i & ":V" & i) = .Range("V" & i & ":V" & i).Value
-                        .Range("W" & i & ":W" & i) = .Range("W" & i & ":W" & i).Value
-                        .Range("X" & i & ":X" & i) = .Range("X" & i & ":X" & i).Value
-                        .Range("AB" & i & ":AB" & i) = .Range("AB" & i & ":AB" & i).Value
-                        .Range("AC" & i & ":AC" & i) = .Range("AC" & i & ":AC" & i).Value
-                        .Range("AE" & i & ":AE" & i) = .Range("AE" & i & ":AE" & i).Value
-                        .Range("AG" & i & ":AG" & i) = .Range("AG" & i & ":AG" & i).Value
-                        .Range("AH" & i & ":AH" & i) = .Range("AH" & i & ":AH" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AN" & i & ":AN" & i) = .Range("AN" & i & ":AN" & i).Value
-                        .Range("AO" & i & ":AO" & i) = .Range("AO" & i & ":AO" & i).Value
-                        .Range("AP" & i & ":AP" & i) = .Range("AP" & i & ":AP" & i).Value
-                        .Range("AQ" & i & ":AQ" & i) = .Range("AQ" & i & ":AQ" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                        .Range("AV" & i & ":AV" & i) = .Range("AV" & i & ":AV" & i).Value
-                        .Range("AW" & i & ":AW" & i) = .Range("AW" & i & ":AW" & i).Value
-                        .Range("AX" & i & ":AX" & i) = .Range("AX" & i & ":AX" & i).Value
-                        .Range("AY" & i & ":AY" & i) = .Range("AY" & i & ":AY" & i).Value
-                        .Range("BB" & i & ":BB" & i) = .Range("BB" & i & ":BB" & i).Value
-                        .Range("BD" & i & ":BD" & i) = .Range("BD" & i & ":BD" & i).Value
-                        .Range("BE" & i & ":BE" & i) = .Range("BE" & i & ":BE" & i).Value
-                        .Range("BG" & i & ":BG" & i) = .Range("BG" & i & ":BG" & i).Value
-                        .Range("BH" & i & ":BH" & i) = .Range("BH" & i & ":BH" & i).Value
-                        .Range("BI" & i & ":BI" & i) = .Range("BI" & i & ":BI" & i).Value
-                        .Range("BJ" & i & ":BJ" & i) = .Range("BJ" & i & ":BJ" & i).Value
-                        .Range("BK" & i & ":BK" & i) = .Range("BK" & i & ":BK" & i).Value
-                        .Range("BL" & i & ":BL" & i) = .Range("BL" & i & ":BL" & i).Value
-                    End If
-'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-                End If
-NextIteration:
-            Next i
-        End With
-        If recalc = True Then
-            ' Do refresh of pivots.
-            With Sheets("Mapping Pivots")
-                ' Activate the Mapping Pivots sheet.
-                .Activate
-                ' Refresh the pivot tables.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-        End If
-        '*********************************************************************************************
-        ' Check FinalABC for adjustment changes.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        For i = 2 To lastrow_FinalABC
-            ' Default to false
-            recalc_row = False
-            recalc = False
-            ' Check FinalABC for changes.
-            With .Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                ' USD Adjustments.
-                If .Range("J" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Tax Rate Adjusted
-                If .Range("R" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Adjusted date.
-                tmpMonth1 = UCase(Left(.Range("F" & i).Value, 3))
-                tmpMonth2 = UCase(Left(Right(.Range("A" & i).Value, 8), 3))
-                If (tmpMonth1 <> tmpMonth2) Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("K" & i & ":K" & i).Formula = .Range("K2:K2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("N" & i & ":N" & i).Formula = .Range("N2:N2").FormulaR1C1
-                    .Range("P" & i & ":P" & i).Formula = .Range("P2:P2").FormulaR1C1
-                    .Range("Q" & i & ":Q" & i).Formula = .Range("Q2:Q2").FormulaR1C1
-                    .Range("AI" & i & ":AI" & i).Formula = .Range("AI2:AI2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AM" & i & ":AM" & i).Formula = .Range("AM2:AM2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":AT" & i).Calculate
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    FinalABC_ISIN = .Range("A" & i).Value
-                End If
-            End With
-            If recalc = True Then
-                ' Do refresh of Mapping pivots
-                With .Sheets("Mapping Pivots")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Refresh the pivots.
-                    For Each pt In .PivotTables
-                        pt.RefreshTable
-                        pt.Update
-                    Next
-                End With
-                ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                With .Sheets("SHEETNAME1")
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to formulae.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                .Range("A" & J & ":A" & J).Formula = .Range("A2:A2").FormulaR1C1
-                                .Range("B" & J & ":B" & J).Formula = .Range("B2:B2").FormulaR1C1
-                                .Range("F" & J & ":F" & J).Formula = .Range("F2:F2").FormulaR1C1
-                                .Range("H" & J & ":H" & J).Formula = .Range("H2:H2").FormulaR1C1
-                                .Range("J" & J & ":J" & J).Formula = .Range("J2:J2").FormulaR1C1
-                                .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                                .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                                .Range("T" & J & ":T" & J).Formula = .Range("T2:T2").FormulaR1C1
-                                .Range("V" & J & ":V" & J).Formula = .Range("V2:V2").FormulaR1C1
-                                .Range("W" & J & ":W" & J).Formula = .Range("W2:W2").FormulaR1C1
-                                .Range("X" & J & ":X" & J).Formula = .Range("X2:X2").FormulaR1C1
-                                .Range("AB" & J & ":AB" & J).Formula = .Range("AB2:AB2").FormulaR1C1
-                                .Range("AC" & J & ":AD" & J).Formula = .Range("AC2:AC2").FormulaR1C1
-                                .Range("AE" & J & ":AE" & J).Formula = .Range("AE2:AE2").FormulaR1C1
-                                .Range("AG" & J & ":AG" & J).Formula = .Range("AG2:AG2").FormulaR1C1
-                                .Range("AH" & J & ":AH" & J).Formula = .Range("AH2:AH2").FormulaR1C1
-                                .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                                .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                                .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                                .Range("AN" & J & ":AN" & J).Formula = .Range("AN2:AN2").FormulaR1C1
-                                .Range("AO" & J & ":AO" & J).Formula = .Range("AO2:AO2").FormulaR1C1
-                                .Range("AP" & J & ":AP" & J).Formula = .Range("AP2:AP2").FormulaR1C1
-                                .Range("AQ" & J & ":AQ" & J).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                                .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                                .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                                .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                                .Range("AV" & J & ":AV" & J).Formula = .Range("AV2:AV2").FormulaR1C1
-                                .Range("AW" & J & ":AW" & J).Formula = .Range("AW2:AW2").FormulaR1C1
-                                .Range("AX" & J & ":AX" & J).Formula = .Range("AX2:AX2").FormulaR1C1
-                                .Range("AY" & J & ":AY" & J).Formula = .Range("AY2:AY2").FormulaR1C1
-                                .Range("BB" & J & ":BB" & J).Formula = .Range("BB2:BB2").FormulaR1C1
-                                .Range("BD" & J & ":BD" & J).Formula = .Range("BD2:BD2").FormulaR1C1
-                                .Range("BE" & J & ":BE" & J).Formula = .Range("BE2:BE2").FormulaR1C1
-                                .Range("BG" & J & ":BG" & J).Formula = .Range("BG2:BG2").FormulaR1C1
-                                .Range("BH" & J & ":BH" & J).Formula = .Range("BH2:BH2").FormulaR1C1
-                                .Range("BI" & J & ":BI" & J).Formula = .Range("BI2:BI2").FormulaR1C1
-                                .Range("BJ" & J & ":BJ" & J).Formula = .Range("BJ2:BJ2").FormulaR1C1
-                                .Range("BK" & J & ":BK" & J).Formula = .Range("BK2:BK2").FormulaR1C1
-                                .Range("BL" & J & ":BL" & J).Formula = .Range("BL2:BL2").FormulaR1C1
-                                ' Recalculate the entire row.
-                                .Range("A" & J & ":BO" & J).Calculate
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & SHEETNAME1_ISIN & " cannot be found in the FinalABC sheet."
-                        End If
-                    End If
-                End With
-                ' Recalculate all worksheets.
-                Application.Calculate
-                ' Now convert all impacted formulae back to values.
-                'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-                ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-                If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                    With .Sheets("FinalABC")
-                        ' Activate the sheet.
-                        .Activate
-                        .Range("K" & i & ":K" & i) = .Range("K" & i & ":K" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("N" & i & ":N" & i) = .Range("N" & i & ":N" & i).Value
-                        .Range("P" & i & ":P" & i) = .Range("P" & i & ":P" & i).Value
-                        .Range("Q" & i & ":Q" & i) = .Range("Q" & i & ":Q" & i).Value
-                        .Range("AI" & i & ":AI" & i) = .Range("AI" & i & ":AI" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AM" & i & ":AM" & i) = .Range("AM" & i & ":AM" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                    End With
-                End If
-                ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-                With .Sheets("SHEETNAME1")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to values.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                If (J > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                                    .Range("A" & J & ":A" & J) = .Range("A" & J & ":A" & J).Value
-                                    .Range("B" & J & ":B" & J) = .Range("B" & J & ":B" & J).Value
-                                    .Range("F" & J & ":F" & J) = .Range("F" & J & ":F" & J).Value
-                                    .Range("H" & J & ":H" & J) = .Range("H" & J & ":H" & J).Value
-                                    .Range("J" & J & ":J" & J) = .Range("J" & J & ":J" & J).Value
-                                    .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                    .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                    .Range("T" & J & ":T" & J) = .Range("T" & J & ":T" & J).Value
-                                    .Range("V" & J & ":V" & J) = .Range("V" & J & ":V" & J).Value
-                                    .Range("W" & J & ":W" & J) = .Range("W" & J & ":W" & J).Value
-                                    .Range("X" & J & ":X" & J) = .Range("X" & J & ":X" & J).Value
-                                    .Range("AB" & J & ":AB" & J) = .Range("AB" & J & ":AB" & J).Value
-                                    .Range("AC" & J & ":AC" & J) = .Range("AC" & J & ":AC" & J).Value
-                                    .Range("AE" & J & ":AE" & J) = .Range("AE" & J & ":AE" & J).Value
-                                    .Range("AG" & J & ":AG" & J) = .Range("AG" & J & ":AG" & J).Value
-                                    .Range("AH" & J & ":AH" & J) = .Range("AH" & J & ":AH" & J).Value
-                                    .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                    .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                    .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                    .Range("AN" & J & ":AN" & J) = .Range("AN" & J & ":AN" & J).Value
-                                    .Range("AO" & J & ":AO" & J) = .Range("AO" & J & ":AO" & J).Value
-                                    .Range("AP" & J & ":AP" & J) = .Range("AP" & J & ":AP" & J).Value
-                                    .Range("AQ" & J & ":AQ" & J) = .Range("AQ" & J & ":AQ" & J).Value
-                                    .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                    .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                    .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                    .Range("AV" & J & ":AV" & J) = .Range("AV" & J & ":AV" & J).Value
-                                    .Range("AW" & J & ":AW" & J) = .Range("AW" & J & ":AW" & J).Value
-                                    .Range("AX" & J & ":AX" & J) = .Range("AX" & J & ":AX" & J).Value
-                                    .Range("AY" & J & ":AY" & J) = .Range("AY" & J & ":AY" & J).Value
-                                    .Range("BB" & J & ":BB" & J) = .Range("BB" & J & ":BB" & J).Value
-                                    .Range("BD" & J & ":BD" & J) = .Range("BD" & J & ":BD" & J).Value
-                                    .Range("BE" & J & ":BE" & J) = .Range("BE" & J & ":BE" & J).Value
-                                    .Range("BG" & J & ":BG" & J) = .Range("BG" & J & ":BG" & J).Value
-                                    .Range("BH" & J & ":BH" & J) = .Range("BH" & J & ":BH" & J).Value
-                                    .Range("BI" & J & ":BI" & J) = .Range("BI" & J & ":BI" & J).Value
-                                    .Range("BJ" & J & ":BJ" & J) = .Range("BJ" & J & ":BJ" & J).Value
-                                    .Range("BK" & J & ":BK" & J) = .Range("BK" & J & ":BK" & J).Value
-                                    .Range("BL" & J & ":BL" & J) = .Range("BL" & J & ":BL" & J).Value
-                                End If
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet."
-                        End If
-                    End If
-                End With
-            End If
-        Next i
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set rng = Nothing
-    Set var = Nothing
-    Set working = Nothing
-    Set column_k = Nothing
-    Set column_y = Nothing
-    Set column_ac = Nothing
-    Set column_ad = Nothing
-    Set column_ae = Nothing
-    Set column_af = Nothing
-    Set column_ah = Nothing
-    Set column_ai = Nothing
-    Set column_al = Nothing
-    Set column_am = Nothing
-    Set column_at = Nothing
-    Set column_au = Nothing
-End Sub
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub M11207_Recalc_changed_adjusted_rows_Array_NEW()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim recalc As Boolean
-    Dim recalc_row As Boolean
-    Dim FinalABC_ISIN As String
-    Dim SHEETNAME1_ISIN As String
-    Dim rng As Range
-    Dim var As Variant
-    Dim i As Long
-    Dim J As Long
-    Dim tmpMonth1 As String
-    Dim tmpMonth2 As String
-    Dim pt As PivotTable
-    Dim column_k As Variant
-    Dim column_y As Variant
-    Dim column_ac As Variant
-    Dim column_ad As Variant
-    Dim column_ae As Variant
-    Dim column_af As Variant
-    Dim column_ah As Variant
-    Dim column_ai As Variant
-    Dim column_al As Variant
-    Dim column_am As Variant
-    Dim column_at As Variant
-    Dim column_au As Variant
-    Dim working As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc changed adjusted SHEETNAME1 rows?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-        ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ac(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ae(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ah(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_al(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_at(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-        ' Check SHEETNAME1 for changes.
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Load working with dummy values - just to set its size.
-            working = .Range("D1:D" & lastrow_SHEETNAME1)
-            ' Load SHEETNAME1 columns into array variables.
-            column_k = .Range("K1:K" & lastrow_SHEETNAME1)
-            column_y = .Range("Y1:Y" & lastrow_SHEETNAME1)
-            column_ac = .Range("AC1:AC" & lastrow_SHEETNAME1)
-            column_ad = .Range("AD1:AD" & lastrow_SHEETNAME1)
-            column_ae = .Range("AE1:AE" & lastrow_SHEETNAME1)
-            column_af = .Range("AF1:AF" & lastrow_SHEETNAME1)
-            column_ah = .Range("AH1:AH" & lastrow_SHEETNAME1)
-            column_ai = .Range("AI1:AI" & lastrow_SHEETNAME1)
-            column_al = .Range("AL1:AL" & lastrow_SHEETNAME1)
-            column_am = .Range("AM1:AM" & lastrow_SHEETNAME1)
-            column_at = .Range("AT1:AT" & lastrow_SHEETNAME1)
-            column_au = .Range("AU1:AU" & lastrow_SHEETNAME1)
-            ' Prompt the user for the row to change
-            i = Application.InputBox _
-                (Prompt:="Please enter which line to recalc in the SHEETNAME1 sheet.", _
-                    Title:="SHEETNAME1 line to recalc", Type:=1)
-            If i < LBound(working) Then
-               GoTo IncorrectRow
-            End If
-            If i > UBound(working) Then
-                GoTo IncorrectRow
-            End If
-            'For i = LBound(working) To UBound(working)
-                ' If row 1, heading, skip
-                If i = 1 Then
-                    GoTo IncorrectRow ' next i
-                End If
-                ' Default to false
-                recalc_row = False
-                ' Tax rate adjusted.
-                If column_k(i, 1) <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude.
-                If column_y(i, 1) <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If column_ad(i, 1) <> "" Then
-                    If column_ad(i, 1) <> column_ac(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Exemption Code Adjusted.
-                If column_af(i, 1) <> "" Then
-                    If column_af(i, 1) <> column_ae(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH Rate Adjusted.
-                If column_ai(i, 1) <> "" Then
-                    If column_ai(i, 1) <> column_ah(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' BBH CCY Adjusted.
-                If column_am(i, 1) <> "" Then
-                    If column_am(i, 1) <> column_al(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Suggested Rate Adjusted.
-                If column_au(i, 1) <> "" Then
-                    If column_au(i, 1) <> column_at(i, 1) Then
-                        recalc_row = True
-                    End If
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    SHEETNAME1_ISIN = .Range("A" & i).Value
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("A" & i & ":A" & i).Formula = .Range("A2:A2").FormulaR1C1
-                    .Range("B" & i & ":B" & i).Formula = .Range("B2:B2").FormulaR1C1
-                    .Range("F" & i & ":F" & i).Formula = .Range("F2:F2").FormulaR1C1
-                    .Range("H" & i & ":H" & i).Formula = .Range("H2:H2").FormulaR1C1
-                    .Range("J" & i & ":J" & i).Formula = .Range("J2:J2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("T" & i & ":T" & i).Formula = .Range("T2:T2").FormulaR1C1
-                    .Range("V" & i & ":V" & i).Formula = .Range("V2:V2").FormulaR1C1
-                    .Range("W" & i & ":W" & i).Formula = .Range("W2:W2").FormulaR1C1
-                    .Range("X" & i & ":X" & i).Formula = .Range("X2:X2").FormulaR1C1
-                    .Range("AB" & i & ":AB" & i).Formula = .Range("AB2:AB2").FormulaR1C1
-                    .Range("AC" & i & ":AC" & i).Formula = .Range("AC2:AC2").FormulaR1C1
-                    .Range("AE" & i & ":AE" & i).Formula = .Range("AE2:AE2").FormulaR1C1
-                    .Range("AG" & i & ":AG" & i).Formula = .Range("AG2:AG2").FormulaR1C1
-                    .Range("AH" & i & ":AH" & i).Formula = .Range("AH2:AH2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AN" & i & ":AN" & i).Formula = .Range("AN2:AN2").FormulaR1C1
-                    .Range("AO" & i & ":AO" & i).Formula = .Range("AO2:AO2").FormulaR1C1
-                    .Range("AP" & i & ":AP" & i).Formula = .Range("AP2:AP2").FormulaR1C1
-                    .Range("AQ" & i & ":AQ" & i).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    .Range("AV" & i & ":AU" & i).Formula = .Range("AV2:AV2").FormulaR1C1
-                    .Range("AW" & i & ":AW" & i).Formula = .Range("AW2:AW2").FormulaR1C1
-                    .Range("AX" & i & ":AX" & i).Formula = .Range("AX2:AX2").FormulaR1C1
-                    .Range("AY" & i & ":AY" & i).Formula = .Range("AY2:AY2").FormulaR1C1
-                    .Range("BB" & i & ":BB" & i).Formula = .Range("BB2:BB2").FormulaR1C1
-                    .Range("BD" & i & ":BD" & i).Formula = .Range("BD2:BD2").FormulaR1C1
-                    .Range("BE" & i & ":BE" & i).Formula = .Range("BE2:BE2").FormulaR1C1
-                    .Range("BG" & i & ":BG" & i).Formula = .Range("BG2:BG2").FormulaR1C1
-                    .Range("BH" & i & ":BH" & i).Formula = .Range("BH2:BH2").FormulaR1C1
-                    .Range("BI" & i & ":BI" & i).Formula = .Range("BI2:BI2").FormulaR1C1
-                    .Range("BJ" & i & ":BJ" & i).Formula = .Range("BJ2:JI2").FormulaR1C1
-                    .Range("BK" & i & ":BK" & i).Formula = .Range("BK2:BK2").FormulaR1C1
-                    .Range("BL" & i & ":BL" & i).Formula = .Range("BL2:BL2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":BO" & i).Calculate
-'--------------------------------------------------------------------------
-                    ' TODO - Add in here loop for all affected lines in FinalABC sheet with same ISIN.
-                    ' Then we can remove the below copy all BBH formulae down.
-                    ' Now get index of first row in FinalABC sheet that contains same affected ISIN.
-                    With Sheets("FinalABC")
-                        Set rng = .Range("A1:A" & lastrow_FinalABC)
-                        If WorksheetFunction.CountIf(rng, SHEETNAME1_ISIN) > 0 Then
-                            var = WorksheetFunction.Match(SHEETNAME1_ISIN, rng, 0)
-                            If Not IsError(var) Then
-                                J = var
-                                FinalABC_ISIN = .Range("A" & J).Value
-                                ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                                ' Convert all formula cells in the row back to formulae.
-                                While .Range("A" & J).Value = FinalABC_ISIN
-                                    ' Convert all formula cells in the row back to formulae.
-                                    .Range("K" & J & ":K" & J).Formula = .Range("K2:K2").FormulaR1C1
-                                    .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                                    .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                                    .Range("N" & J & ":N" & J).Formula = .Range("N2:N2").FormulaR1C1
-                                    .Range("P" & J & ":P" & J).Formula = .Range("P2:P2").FormulaR1C1
-                                    .Range("Q" & J & ":Q" & J).Formula = .Range("Q2:Q2").FormulaR1C1
-                                    .Range("AI" & J & ":AI" & J).Formula = .Range("AI2:AI2").FormulaR1C1
-                                    .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                                    .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                                    .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                                    .Range("AM" & J & ":AM" & J).Formula = .Range("AM2:AM2").FormulaR1C1
-                                    .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                                    .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                                    .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                                    ' Recalculate the entire row.
-                                    .Range("A" & J & ":AT" & J).Calculate
-                                    ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-                                    If (J > 2) Then
-                                        .Range("K" & J & ":K" & J) = .Range("K" & J & ":K" & J).Value
-                                        .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                        .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                        .Range("N" & J & ":N" & J) = .Range("N" & J & ":N" & J).Value
-                                        .Range("P" & J & ":P" & J) = .Range("P" & J & ":P" & J).Value
-                                        .Range("Q" & J & ":Q" & J) = .Range("Q" & J & ":Q" & J).Value
-                                        .Range("AI" & J & ":AI" & J) = .Range("AI" & J & ":AI" & J).Value
-                                        .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                        .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                        .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                        .Range("AM" & J & ":AM" & J) = .Range("AM" & J & ":AM" & J).Value
-                                        .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                        .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                        .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                    End If
-                                    ' next row
-                                    J = J + 1
-                                Wend
-                            Else
-                                Message "The ISIN " & SHEETNAME1_ISIN & " cannot be found in the FinalABC sheet."
-                            End If
-                        End If
-                    End With
-                    ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-                    If (i > 2) Then
-                        .Range("A" & i & ":A" & i) = .Range("A" & i & ":A" & i).Value
-                        .Range("B" & i & ":B" & i) = .Range("B" & i & ":B" & i).Value
-                        .Range("F" & i & ":F" & i) = .Range("F" & i & ":F" & i).Value
-                        .Range("H" & i & ":H" & i) = .Range("H" & i & ":H" & i).Value
-                        .Range("J" & i & ":J" & i) = .Range("J" & i & ":J" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("T" & i & ":T" & i) = .Range("T" & i & ":T" & i).Value
-                        .Range("V" & i & ":V" & i) = .Range("V" & i & ":V" & i).Value
-                        .Range("W" & i & ":W" & i) = .Range("W" & i & ":W" & i).Value
-                        .Range("X" & i & ":X" & i) = .Range("X" & i & ":X" & i).Value
-                        .Range("AB" & i & ":AB" & i) = .Range("AB" & i & ":AB" & i).Value
-                        .Range("AC" & i & ":AC" & i) = .Range("AC" & i & ":AC" & i).Value
-                        .Range("AE" & i & ":AE" & i) = .Range("AE" & i & ":AE" & i).Value
-                        .Range("AG" & i & ":AG" & i) = .Range("AG" & i & ":AG" & i).Value
-                        .Range("AH" & i & ":AH" & i) = .Range("AH" & i & ":AH" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AN" & i & ":AN" & i) = .Range("AN" & i & ":AN" & i).Value
-                        .Range("AO" & i & ":AO" & i) = .Range("AO" & i & ":AO" & i).Value
-                        .Range("AP" & i & ":AP" & i) = .Range("AP" & i & ":AP" & i).Value
-                        .Range("AQ" & i & ":AQ" & i) = .Range("AQ" & i & ":AQ" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                        .Range("AV" & i & ":AV" & i) = .Range("AV" & i & ":AV" & i).Value
-                        .Range("AW" & i & ":AW" & i) = .Range("AW" & i & ":AW" & i).Value
-                        .Range("AX" & i & ":AX" & i) = .Range("AX" & i & ":AX" & i).Value
-                        .Range("AY" & i & ":AY" & i) = .Range("AY" & i & ":AY" & i).Value
-                        .Range("BB" & i & ":BB" & i) = .Range("BB" & i & ":BB" & i).Value
-                        .Range("BD" & i & ":BD" & i) = .Range("BD" & i & ":BD" & i).Value
-                        .Range("BE" & i & ":BE" & i) = .Range("BE" & i & ":BE" & i).Value
-                        .Range("BG" & i & ":BG" & i) = .Range("BG" & i & ":BG" & i).Value
-                        .Range("BH" & i & ":BH" & i) = .Range("BH" & i & ":BH" & i).Value
-                        .Range("BI" & i & ":BI" & i) = .Range("BI" & i & ":BI" & i).Value
-                        .Range("BJ" & i & ":BJ" & i) = .Range("BJ" & i & ":BJ" & i).Value
-                        .Range("BK" & i & ":BK" & i) = .Range("BK" & i & ":BK" & i).Value
-                        .Range("BL" & i & ":BL" & i) = .Range("BL" & i & ":BL" & i).Value
-                    End If
-'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-                End If
-IncorrectRow:
-            'Next i
-        End With
-        If recalc = True Then
-            ' Do refresh of pivots.
-            With Sheets("Mapping Pivots")
-                ' Activate the Mapping Pivots sheet.
-                .Activate
-                ' Refresh the pivot tables.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-        End If
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set rng = Nothing
-    Set var = Nothing
-    Set working = Nothing
-    Set column_k = Nothing
-    Set column_y = Nothing
-    Set column_ac = Nothing
-    Set column_ad = Nothing
-    Set column_ae = Nothing
-    Set column_af = Nothing
-    Set column_ah = Nothing
-    Set column_ai = Nothing
-    Set column_al = Nothing
-    Set column_am = Nothing
-    Set column_at = Nothing
-    Set column_au = Nothing
-End Sub
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub M11208_Recalc_changed_adjusted_rows_Array_NEW()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim recalc As Boolean
-    Dim recalc_row As Boolean
-    Dim FinalABC_ISIN As String
-    Dim SHEETNAME1_ISIN As String
-    Dim rng As Range
-    Dim var As Variant
-    Dim i As Long
-    Dim J As Long
-    Dim tmpMonth1 As String
-    Dim tmpMonth2 As String
-    Dim pt As PivotTable
-    Dim column_k As Variant
-    Dim column_y As Variant
-    Dim column_ac As Variant
-    Dim column_ad As Variant
-    Dim column_ae As Variant
-    Dim column_af As Variant
-    Dim column_ah As Variant
-    Dim column_ai As Variant
-    Dim column_al As Variant
-    Dim column_am As Variant
-    Dim column_at As Variant
-    Dim column_au As Variant
-    Dim working As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc changed adjusted FinalABC rows?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        ReDim working(1 To lastrow_SHEETNAME1, 1) ' Working array
-        ReDim column_k(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_y(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ac(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ad(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ae(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_af(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ah(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_ai(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_al(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_am(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_at(1 To lastrow_SHEETNAME1, 1)
-        ReDim column_au(1 To lastrow_SHEETNAME1, 1)
-        If recalc = True Then
-            ' Do refresh of pivots.
-            With Sheets("Mapping Pivots")
-                ' Activate the Mapping Pivots sheet.
-                .Activate
-                ' Refresh the pivot tables.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-        End If
-        '*********************************************************************************************
-        ' Check FinalABC for adjustment changes.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-            i = Application.InputBox _
-                (Prompt:="Please enter which line to recalc in the FinalABC sheet.", _
-                    Title:="FinalABC line to recalc", Type:=1)
-            If i < LBound(working) Then
-               GoTo IncorrectRow
-            End If
-            If i > UBound(working) Then
-                GoTo IncorrectRow
-            End If
-        'For i = 2 To lastrow_FinalABC
-            ' Default to false
-            recalc_row = False
-            recalc = False
-            ' Check FinalABC for changes.
-            With .Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                ' USD Adjustments.
-                If .Range("J" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Tax Rate Adjusted
-                If .Range("R" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Adjusted date.
-                tmpMonth1 = UCase(Left(.Range("F" & i).Value, 3))
-                tmpMonth2 = UCase(Left(Right(.Range("A" & i).Value, 8), 3))
-                If (tmpMonth1 <> tmpMonth2) Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("K" & i & ":K" & i).Formula = .Range("K2:K2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("N" & i & ":N" & i).Formula = .Range("N2:N2").FormulaR1C1
-                    .Range("P" & i & ":P" & i).Formula = .Range("P2:P2").FormulaR1C1
-                    .Range("Q" & i & ":Q" & i).Formula = .Range("Q2:Q2").FormulaR1C1
-                    .Range("AI" & i & ":AI" & i).Formula = .Range("AI2:AI2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AM" & i & ":AM" & i).Formula = .Range("AM2:AM2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":AT" & i).Calculate
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    FinalABC_ISIN = .Range("A" & i).Value
-                End If
-            End With
-            If recalc = True Then
-                ' Do refresh of Mapping pivots
-                With .Sheets("Mapping Pivots")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Refresh the pivots.
-                    For Each pt In .PivotTables
-                        pt.RefreshTable
-                        pt.Update
-                    Next
-                End With
-                ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                With .Sheets("SHEETNAME1")
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to formulae.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                .Range("A" & J & ":A" & J).Formula = .Range("A2:A2").FormulaR1C1
-                                .Range("B" & J & ":B" & J).Formula = .Range("B2:B2").FormulaR1C1
-                                .Range("F" & J & ":F" & J).Formula = .Range("F2:F2").FormulaR1C1
-                                .Range("H" & J & ":H" & J).Formula = .Range("H2:H2").FormulaR1C1
-                                .Range("J" & J & ":J" & J).Formula = .Range("J2:J2").FormulaR1C1
-                                .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                                .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                                .Range("T" & J & ":T" & J).Formula = .Range("T2:T2").FormulaR1C1
-                                .Range("V" & J & ":V" & J).Formula = .Range("V2:V2").FormulaR1C1
-                                .Range("W" & J & ":W" & J).Formula = .Range("W2:W2").FormulaR1C1
-                                .Range("X" & J & ":X" & J).Formula = .Range("X2:X2").FormulaR1C1
-                                .Range("AB" & J & ":AB" & J).Formula = .Range("AB2:AB2").FormulaR1C1
-                                .Range("AC" & J & ":AD" & J).Formula = .Range("AC2:AC2").FormulaR1C1
-                                .Range("AE" & J & ":AE" & J).Formula = .Range("AE2:AE2").FormulaR1C1
-                                .Range("AG" & J & ":AG" & J).Formula = .Range("AG2:AG2").FormulaR1C1
-                                .Range("AH" & J & ":AH" & J).Formula = .Range("AH2:AH2").FormulaR1C1
-                                .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                                .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                                .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                                .Range("AN" & J & ":AN" & J).Formula = .Range("AN2:AN2").FormulaR1C1
-                                .Range("AO" & J & ":AO" & J).Formula = .Range("AO2:AO2").FormulaR1C1
-                                .Range("AP" & J & ":AP" & J).Formula = .Range("AP2:AP2").FormulaR1C1
-                                .Range("AQ" & J & ":AQ" & J).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                                .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                                .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                                .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                                .Range("AV" & J & ":AV" & J).Formula = .Range("AV2:AV2").FormulaR1C1
-                                .Range("AW" & J & ":AW" & J).Formula = .Range("AW2:AW2").FormulaR1C1
-                                .Range("AX" & J & ":AX" & J).Formula = .Range("AX2:AX2").FormulaR1C1
-                                .Range("AY" & J & ":AY" & J).Formula = .Range("AY2:AY2").FormulaR1C1
-                                .Range("BB" & J & ":BB" & J).Formula = .Range("BB2:BB2").FormulaR1C1
-                                .Range("BD" & J & ":BD" & J).Formula = .Range("BD2:BD2").FormulaR1C1
-                                .Range("BE" & J & ":BE" & J).Formula = .Range("BE2:BE2").FormulaR1C1
-                                .Range("BG" & J & ":BG" & J).Formula = .Range("BG2:BG2").FormulaR1C1
-                                .Range("BH" & J & ":BH" & J).Formula = .Range("BH2:BH2").FormulaR1C1
-                                .Range("BI" & J & ":BI" & J).Formula = .Range("BI2:BI2").FormulaR1C1
-                                .Range("BJ" & J & ":BJ" & J).Formula = .Range("BJ2:BJ2").FormulaR1C1
-                                .Range("BK" & J & ":BK" & J).Formula = .Range("BK2:BK2").FormulaR1C1
-                                .Range("BL" & J & ":BL" & J).Formula = .Range("BL2:BL2").FormulaR1C1
-                                ' Recalculate the entire row.
-                                .Range("A" & J & ":BO" & J).Calculate
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & SHEETNAME1_ISIN & " cannot be found in the FinalABC sheet."
-                        End If
-                    End If
-                End With
-                ' Recalculate all worksheets.
-                Application.Calculate
-                ' Now convert all impacted formulae back to values.
-                'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-                ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-                If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                    With .Sheets("FinalABC")
-                        ' Activate the sheet.
-                        .Activate
-                        .Range("K" & i & ":K" & i) = .Range("K" & i & ":K" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                        .Range("N" & i & ":N" & i) = .Range("N" & i & ":N" & i).Value
-                        .Range("P" & i & ":P" & i) = .Range("P" & i & ":P" & i).Value
-                        .Range("Q" & i & ":Q" & i) = .Range("Q" & i & ":Q" & i).Value
-                        .Range("AI" & i & ":AI" & i) = .Range("AI" & i & ":AI" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AM" & i & ":AM" & i) = .Range("AM" & i & ":AM" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                    End With
-                End If
-                ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-                With .Sheets("SHEETNAME1")
-                    ' Activate the sheet.
-                    .Activate
-                    ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                    Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                    If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                        var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                        If Not IsError(var) Then
-                            J = var
-                            SHEETNAME1_ISIN = .Range("A" & J).Value
-                            ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                            ' Convert all formula cells in the row back to values.
-                            While .Range("A" & J).Value = SHEETNAME1_ISIN
-                                If (J > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                                    .Range("A" & J & ":A" & J) = .Range("A" & J & ":A" & J).Value
-                                    .Range("B" & J & ":B" & J) = .Range("B" & J & ":B" & J).Value
-                                    .Range("F" & J & ":F" & J) = .Range("F" & J & ":F" & J).Value
-                                    .Range("H" & J & ":H" & J) = .Range("H" & J & ":H" & J).Value
-                                    .Range("J" & J & ":J" & J) = .Range("J" & J & ":J" & J).Value
-                                    .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                    .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                    .Range("T" & J & ":T" & J) = .Range("T" & J & ":T" & J).Value
-                                    .Range("V" & J & ":V" & J) = .Range("V" & J & ":V" & J).Value
-                                    .Range("W" & J & ":W" & J) = .Range("W" & J & ":W" & J).Value
-                                    .Range("X" & J & ":X" & J) = .Range("X" & J & ":X" & J).Value
-                                    .Range("AB" & J & ":AB" & J) = .Range("AB" & J & ":AB" & J).Value
-                                    .Range("AC" & J & ":AC" & J) = .Range("AC" & J & ":AC" & J).Value
-                                    .Range("AE" & J & ":AE" & J) = .Range("AE" & J & ":AE" & J).Value
-                                    .Range("AG" & J & ":AG" & J) = .Range("AG" & J & ":AG" & J).Value
-                                    .Range("AH" & J & ":AH" & J) = .Range("AH" & J & ":AH" & J).Value
-                                    .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                    .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                    .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                    .Range("AN" & J & ":AN" & J) = .Range("AN" & J & ":AN" & J).Value
-                                    .Range("AO" & J & ":AO" & J) = .Range("AO" & J & ":AO" & J).Value
-                                    .Range("AP" & J & ":AP" & J) = .Range("AP" & J & ":AP" & J).Value
-                                    .Range("AQ" & J & ":AQ" & J) = .Range("AQ" & J & ":AQ" & J).Value
-                                    .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                    .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                    .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                    .Range("AV" & J & ":AV" & J) = .Range("AV" & J & ":AV" & J).Value
-                                    .Range("AW" & J & ":AW" & J) = .Range("AW" & J & ":AW" & J).Value
-                                    .Range("AX" & J & ":AX" & J) = .Range("AX" & J & ":AX" & J).Value
-                                    .Range("AY" & J & ":AY" & J) = .Range("AY" & J & ":AY" & J).Value
-                                    .Range("BB" & J & ":BB" & J) = .Range("BB" & J & ":BB" & J).Value
-                                    .Range("BD" & J & ":BD" & J) = .Range("BD" & J & ":BD" & J).Value
-                                    .Range("BE" & J & ":BE" & J) = .Range("BE" & J & ":BE" & J).Value
-                                    .Range("BG" & J & ":BG" & J) = .Range("BG" & J & ":BG" & J).Value
-                                    .Range("BH" & J & ":BH" & J) = .Range("BH" & J & ":BH" & J).Value
-                                    .Range("BI" & J & ":BI" & J) = .Range("BI" & J & ":BI" & J).Value
-                                    .Range("BJ" & J & ":BJ" & J) = .Range("BJ" & J & ":BJ" & J).Value
-                                    .Range("BK" & J & ":BK" & J) = .Range("BK" & J & ":BK" & J).Value
-                                    .Range("BL" & J & ":BL" & J) = .Range("BL" & J & ":BL" & J).Value
-                                End If
-                                ' next row
-                                J = J + 1
-                            Wend
-                        Else
-                            Message "The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet."
-                        End If
-                    End If
-                End With
-            End If
-IncorrectRow:
-        'Next i
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-    Set rng = Nothing
-    Set var = Nothing
-    Set working = Nothing
-    Set column_k = Nothing
-    Set column_y = Nothing
-    Set column_ac = Nothing
-    Set column_ad = Nothing
-    Set column_ae = Nothing
-    Set column_af = Nothing
-    Set column_ah = Nothing
-    Set column_ai = Nothing
-    Set column_al = Nothing
-    Set column_am = Nothing
-    Set column_at = Nothing
-    Set column_au = Nothing
-End Sub
-' For any row that has adjusted values different than the original value it recalculates the values against that row.
-' It does this by putting formulae back in only for the specific row and then performing the recalc.
-' Later the formula are replaced by values again.
-Sub M11210_Recalc_changed_adjusted_rows()
-    Dim lastrow_SHEETNAME1 As Long
-    Dim lastrow_FinalABC As Long
-    Dim sheet As Worksheet
-    Dim recalc As Boolean
-    Dim recalc_row As Boolean
-    Dim FinalABC_ISIN As String
-    Dim SHEETNAME1_ISIN As String
-    Dim rng As Range
-    Dim var As Variant
-    Dim i As Long
-    Dim J As Long
-    Dim tmpMonth1 As String
-    Dim tmpMonth2 As String
-    Dim pt As PivotTable
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Recalc changed adjusted SHEETNAME1 rows?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' Get how many rows of data have been loaded into the sheet.
-        lastrow_SHEETNAME1 = .Sheets("SHEETNAME1").Cells(Rows.Count, 4).End(xlUp).Row
-        lastrow_FinalABC = .Sheets("FinalABC").Cells(Rows.Count, 4).End(xlUp).Row
-        ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-        If lastrow_SHEETNAME1 < 3 Then
-            lastrow_SHEETNAME1 = 3
-        End If
-        If lastrow_FinalABC < 3 Then
-            lastrow_FinalABC = 3
-        End If
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        ' Check SHEETNAME1 for changes.
-         With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            For i = 2 To lastrow_SHEETNAME1
-            'For i = lastrow To lastrow ' for testing area below.
-                ' Default to false
-                recalc_row = False
-                ' Tax rate adjusted.
-                If .Range("K" & i).Text <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude
-                If .Range("Y" & i).Text <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If .Range("AD" & i).Text <> .Range("AC" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Exemption Code Adjusted.
-                If .Range("AF" & i).Text <> .Range("AE" & i).Text Then
-                    recalc_row = True
-                End If
-                ' BBH Rate Adjusted.
-                If .Range("AI" & i).Text <> .Range("AH" & i).Text Then
-                    recalc_row = True
-                End If
-                ' BBH CCY Adjusted.
-                If .Range("AM" & i).Text <> .Range("AL" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Suggested Rate Adjusted.
-                If .Range("AU" & i).Text <> .Range("AT" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("A" & i & ":A" & i).Formula = .Range("A2:A2").FormulaR1C1
-                    .Range("B" & i & ":B" & i).Formula = .Range("B2:B2").FormulaR1C1
-                    .Range("F" & i & ":F" & i).Formula = .Range("F2:F2").FormulaR1C1
-                    .Range("H" & i & ":H" & i).Formula = .Range("H2:H2").FormulaR1C1
-                    .Range("J" & i & ":J" & i).Formula = .Range("J2:J2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("T" & i & ":T" & i).Formula = .Range("T2:T2").FormulaR1C1
-                    .Range("V" & i & ":V" & i).Formula = .Range("V2:V2").FormulaR1C1
-                    .Range("W" & i & ":W" & i).Formula = .Range("W2:W2").FormulaR1C1
-                    .Range("X" & i & ":X" & i).Formula = .Range("X2:X2").FormulaR1C1
-                    .Range("AB" & i & ":AB" & i).Formula = .Range("AB2:AB2").FormulaR1C1
-                    .Range("AC" & i & ":AC" & i).Formula = .Range("AC2:AC2").FormulaR1C1
-                    .Range("AE" & i & ":AE" & i).Formula = .Range("AE2:AE2").FormulaR1C1
-                    .Range("AG" & i & ":AG" & i).Formula = .Range("AG2:AG2").FormulaR1C1
-                    .Range("AH" & i & ":AH" & i).Formula = .Range("AH2:AH2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AN" & i & ":AN" & i).Formula = .Range("AN2:AN2").FormulaR1C1
-                    .Range("AO" & i & ":AO" & i).Formula = .Range("AO2:AO2").FormulaR1C1
-                    .Range("AP" & i & ":AP" & i).Formula = .Range("AP2:AP2").FormulaR1C1
-                    .Range("AQ" & i & ":AQ" & i).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    .Range("AV" & i & ":AV" & i).Formula = .Range("AV2:AV2").FormulaR1C1
-                    .Range("AW" & i & ":AW" & i).Formula = .Range("AW2:AW2").FormulaR1C1
-                    .Range("AX" & i & ":AX" & i).Formula = .Range("AX2:AX2").FormulaR1C1
-                    .Range("AY" & i & ":AY" & i).Formula = .Range("AY2:AY2").FormulaR1C1
-                    .Range("BB" & i & ":BB" & i).Formula = .Range("BB2:BB2").FormulaR1C1
-                    .Range("BD" & i & ":BD" & i).Formula = .Range("BD2:BD2").FormulaR1C1
-                    .Range("BE" & i & ":BE" & i).Formula = .Range("BE2:BE2").FormulaR1C1
-                    .Range("BG" & i & ":BG" & i).Formula = .Range("BG2:BG2").FormulaR1C1
-                    .Range("BH" & i & ":BH" & i).Formula = .Range("BH2:BH2").FormulaR1C1
-                    .Range("BI" & i & ":BI" & i).Formula = .Range("BI2:BI2").FormulaR1C1
-                    .Range("BJ" & i & ":BJ" & i).Formula = .Range("BJ2:BJ2").FormulaR1C1
-                    .Range("BK" & i & ":BK" & i).Formula = .Range("BK2:BK2").FormulaR1C1
-                    .Range("BL" & i & ":BL" & i).Formula = .Range("BL2:BL2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":BO" & i).Calculate
-                End If
-            Next i
-        End With
-        If recalc = True Then
-            ' Refresh all impacted formula on the FinalABC sheet.
-            With Sheets("FinalABC")
-                ' Activate the FinalABC sheet.
-                .Activate
-                .Range("K2:K2").AutoFill Destination:=.Range("K2:K" & lastrow_FinalABC)
-                .Range("L2:L2").AutoFill Destination:=.Range("L2:L" & lastrow_FinalABC)
-                .Range("M2:M2").AutoFill Destination:=.Range("M2:M" & lastrow_FinalABC)
-                .Range("N2:N2").AutoFill Destination:=.Range("N2:N" & lastrow_FinalABC)
-                .Range("P2:P2").AutoFill Destination:=.Range("P2:P" & lastrow_FinalABC)
-                .Range("Q2:Q2").AutoFill Destination:=.Range("Q2:Q" & lastrow_FinalABC)
-                .Range("AI2:AI2").AutoFill Destination:=.Range("AI2:AI" & lastrow_FinalABC)
-                .Range("AJ2:AJ2").AutoFill Destination:=.Range("AJ2:AJ" & lastrow_FinalABC)
-                .Range("AK2:AK2").AutoFill Destination:=.Range("AK2:AK" & lastrow_FinalABC)
-                .Range("AL2:AL2").AutoFill Destination:=.Range("AL2:AL" & lastrow_FinalABC)
-                .Range("AM2:AM2").AutoFill Destination:=.Range("AM2:AM" & lastrow_FinalABC)
-                .Range("AR2:AR2").AutoFill Destination:=.Range("AR2:AR" & lastrow_FinalABC)
-                .Range("AS2:AS2").AutoFill Destination:=.Range("AS2:AS" & lastrow_FinalABC)
-                .Range("AT2:AT2").AutoFill Destination:=.Range("AT2:AT" & lastrow_FinalABC)
-                ' Recalculate the entire row.
-                '.Range("AK2:AK" & FinalABC_lastrow).Calculate
-            End With
-            ' Recalculate all worksheets.
-            Application.Calculate
-            ' Do refresh of pivots.
-            With Sheets("Mapping Pivots")
-                ' Activate the Mapping Pivots sheet.
-                .Activate
-                ' Refresh the pivot tables.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-            ' Recalculate all worksheets again to pick up Pivot values.
-            Application.Calculate
-            ' Now convert all impacted formulae back to values.
-            'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-            ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-            With Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                .Range("K3:K" & lastrow_FinalABC) = .Range("K3:K" & lastrow_FinalABC).Value
-                .Range("L3:L" & lastrow_FinalABC) = .Range("L3:L" & lastrow_FinalABC).Value
-                .Range("M3:M" & lastrow_FinalABC) = .Range("M3:M" & lastrow_FinalABC).Value
-                .Range("N3:N" & lastrow_FinalABC) = .Range("N3:N" & lastrow_FinalABC).Value
-                .Range("P3:P" & lastrow_FinalABC) = .Range("P3:P" & lastrow_FinalABC).Value
-                .Range("Q3:Q" & lastrow_FinalABC) = .Range("Q3:Q" & lastrow_FinalABC).Value
-                .Range("AI3:AI" & lastrow_FinalABC) = .Range("AI3:AI" & lastrow_FinalABC).Value
-                .Range("AJ3:AJ" & lastrow_FinalABC) = .Range("AJ3:AJ" & lastrow_FinalABC).Value
-                .Range("AK3:AK" & lastrow_FinalABC) = .Range("AK3:AK" & lastrow_FinalABC).Value
-                .Range("AL3:AL" & lastrow_FinalABC) = .Range("AL3:AL" & lastrow_FinalABC).Value
-                .Range("AM3:AM" & lastrow_FinalABC) = .Range("AM3:AM" & lastrow_FinalABC).Value
-                .Range("AR3:AR" & lastrow_FinalABC) = .Range("AR3:AR" & lastrow_FinalABC).Value
-                .Range("AS3:AS" & lastrow_FinalABC) = .Range("AS3:AS" & lastrow_FinalABC).Value
-                .Range("AT3:AT" & lastrow_FinalABC) = .Range("AT3:AT" & lastrow_FinalABC).Value
-            End With
-        End If
-        ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the changing of the formula back to values.
-        recalc = False
-        For i = 2 To lastrow_SHEETNAME1
-            ' Default to false
-            recalc_row = False
-            ' Check SHEETNAME1 for changes.
-            With .Sheets("SHEETNAME1")
-                ' Tax rate adjusted.
-                If .Range("K" & i).Text <> "" Then
-                    recalc_row = True
-                End If
-                ' Include / Exclude
-                If .Range("Y" & i).Text <> "INCLUDE" Then
-                    recalc_row = True
-                End If
-                ' Income Code Adjusted.
-                If .Range("AD" & i).Text <> .Range("AC" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Exemption Code Adjusted.
-                If .Range("AF" & i).Text <> .Range("AE" & i).Text Then
-                    recalc_row = True
-                End If
-                ' BBH Rate Adjusted.
-                If .Range("AI" & i).Text <> .Range("AH" & i).Text Then
-                    recalc_row = True
-                End If
-                ' BBH CCY Adjusted.
-                If .Range("AM" & i).Text <> .Range("AL" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Suggested Rate Adjusted.
-                If .Range("AU" & i).Text <> .Range("AT" & i).Text Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    'recalc = True
-                    If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                        .Range("A" & i & ":A" & i) = .Range("A" & i & ":A" & i).Value
-                        .Range("B" & i & ":B" & i) = .Range("B" & i & ":B" & i).Value
-                        .Range("F" & i & ":F" & i) = .Range("F" & i & ":F" & i).Value
-                        .Range("H" & i & ":H" & i) = .Range("H" & i & ":H" & i).Value
-                        .Range("J" & i & ":J" & i) = .Range("J" & i & ":J" & i).Value
-                        .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                        .Range("M" & i & ":M" & i) = .Range("M" & i & ":L" & i).Value
-                        .Range("T" & i & ":T" & i) = .Range("T" & i & ":T" & i).Value
-                        .Range("V" & i & ":V" & i) = .Range("V" & i & ":V" & i).Value
-                        .Range("W" & i & ":W" & i) = .Range("W" & i & ":W" & i).Value
-                        .Range("X" & i & ":X" & i) = .Range("X" & i & ":X" & i).Value
-                        .Range("AB" & i & ":AB" & i) = .Range("AB" & i & ":AB" & i).Value
-                        .Range("AC" & i & ":AC" & i) = .Range("AC" & i & ":AC" & i).Value
-                        .Range("AE" & i & ":AE" & i) = .Range("AE" & i & ":AE" & i).Value
-                        .Range("AG" & i & ":AG" & i) = .Range("AG" & i & ":AG" & i).Value
-                        .Range("AH" & i & ":AH" & i) = .Range("AH" & i & ":AG" & i).Value
-                        .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AH" & i).Value
-                        .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                        .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                        .Range("AN" & i & ":AN" & i) = .Range("AN" & i & ":AN" & i).Value
-                        .Range("AO" & i & ":AO" & i) = .Range("AO" & i & ":AO" & i).Value
-                        .Range("AP" & i & ":AP" & i) = .Range("AP" & i & ":AP" & i).Value
-                        .Range("AQ" & i & ":AQ" & i) = .Range("AQ" & i & ":AQ" & i).Value
-                        .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                        .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                        .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                        .Range("AV" & i & ":AV" & i) = .Range("AV" & i & ":AV" & i).Value
-                        .Range("AW" & i & ":AW" & i) = .Range("AW" & i & ":AW" & i).Value
-                        .Range("AX" & i & ":AX" & i) = .Range("AX" & i & ":AX" & i).Value
-                        .Range("AY" & i & ":AY" & i) = .Range("AY" & i & ":AY" & i).Value
-                        .Range("BB" & i & ":BB" & i) = .Range("BB" & i & ":BB" & i).Value
-                        .Range("BD" & i & ":BD" & i) = .Range("BD" & i & ":BD" & i).Value
-                        .Range("BE" & i & ":BE" & i) = .Range("BE" & i & ":BE" & i).Value
-                        .Range("BG" & i & ":BG" & i) = .Range("BG" & i & ":BG" & i).Value
-                        .Range("BH" & i & ":BH" & i) = .Range("BH" & i & ":BH" & i).Value
-                        .Range("BI" & i & ":BI" & i) = .Range("BI" & i & ":BI" & i).Value
-                        .Range("BJ" & i & ":BJ" & i) = .Range("BJ" & i & ":BJ" & i).Value
-                        .Range("BK" & i & ":BK" & i) = .Range("BK" & i & ":BK" & i).Value
-                        .Range("BL" & i & ":BL" & i) = .Range("BL" & i & ":BL" & i).Value
-                    End If
-                End If
-            End With
-        Next i
-        '*********************************************************************************************
-        ' Check FinalABC for adjustment changes.
-        ' Loop through every row in SHEETNAME1 and check if any adjusted cell differs from the original.
-        ' If so then continues with the recalc.
-        recalc = False
-        For i = 2 To lastrow_FinalABC
-            ' Default to false
-            recalc_row = False
-            ' Check FinalABC for changes.
-            With .Sheets("FinalABC")
-                ' Activate the sheet.
-                .Activate
-                ' USD Adjustments.
-                If .Range("J" & i).Value <> "" Then
-                    recalc_row = True
-                End If
-                ' Adjusted date.
-                tmpMonth1 = UCase(Left(.Range("F" & i).Value, 3))
-                tmpMonth2 = UCase(Left(Right(.Range("A" & i).Value, 8), 3))
-                If (tmpMonth1 <> tmpMonth2) Then
-                    recalc_row = True
-                End If
-                ' Check if recalc_row is true.
-                If recalc_row = True Then
-                    ' Set recalc to true
-                    recalc = True
-                    ' Convert all formula cells in the row back to formulae.
-                    .Range("K" & i & ":K" & i).Formula = .Range("K2:K2").FormulaR1C1
-                    .Range("L" & i & ":L" & i).Formula = .Range("L2:L2").FormulaR1C1
-                    .Range("M" & i & ":M" & i).Formula = .Range("M2:M2").FormulaR1C1
-                    .Range("N" & i & ":N" & i).Formula = .Range("N2:N2").FormulaR1C1
-                    .Range("P" & i & ":P" & i).Formula = .Range("P2:P2").FormulaR1C1
-                    .Range("Q" & i & ":Q" & i).Formula = .Range("Q2:Q2").FormulaR1C1
-                    .Range("AI" & i & ":AI" & i).Formula = .Range("AI2:AI2").FormulaR1C1
-                    .Range("AJ" & i & ":AJ" & i).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                    .Range("AK" & i & ":AK" & i).Formula = .Range("AK2:AK2").FormulaR1C1
-                    .Range("AL" & i & ":AL" & i).Formula = .Range("AL2:AL2").FormulaR1C1
-                    .Range("AM" & i & ":AM" & i).Formula = .Range("AM2:AM2").FormulaR1C1
-                    .Range("AR" & i & ":AR" & i).Formula = .Range("AR2:AR2").FormulaR1C1
-                    .Range("AS" & i & ":AS" & i).Formula = .Range("AS2:AS2").FormulaR1C1
-                    .Range("AT" & i & ":AT" & i).Formula = .Range("AT2:AT2").FormulaR1C1
-                    ' Recalculate the entire row.
-                    .Range("A" & i & ":AR" & i).Calculate
-                    ' Get starting position of the affected ISIN within the SHEETNAME1 sheet.
-                    FinalABC_ISIN = .Range("A" & i).Value
-                End If
-            End With
-            ' Do refresh of Mapping pivots
-            With .Sheets("Mapping Pivots")
-                ' Activate the sheet.
-                .Activate
-                ' Refresh the pivots.
-                For Each pt In .PivotTables
-                    pt.RefreshTable
-                    pt.Update
-                Next
-            End With
-            ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-            With .Sheets("SHEETNAME1")
-                Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                    var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                    If Not IsError(var) Then
-                        J = var
-                        SHEETNAME1_ISIN = .Range("A" & J).Value
-                        ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                        ' Convert all formula cells in the row back to formulae.
-                        While .Range("A" & J).Value = SHEETNAME1_ISIN
-                            .Range("A" & J & ":A" & J).Formula = .Range("A2:A2").FormulaR1C1
-                            .Range("B" & J & ":B" & J).Formula = .Range("B2:B2").FormulaR1C1
-                            .Range("F" & J & ":F" & J).Formula = .Range("F2:F2").FormulaR1C1
-                            .Range("H" & J & ":H" & J).Formula = .Range("H2:H2").FormulaR1C1
-                            .Range("J" & J & ":J" & J).Formula = .Range("J2:J2").FormulaR1C1
-                            .Range("L" & J & ":L" & J).Formula = .Range("L2:L2").FormulaR1C1
-                            .Range("M" & J & ":M" & J).Formula = .Range("M2:M2").FormulaR1C1
-                            .Range("T" & J & ":T" & J).Formula = .Range("T2:T2").FormulaR1C1
-                            .Range("V" & J & ":V" & J).Formula = .Range("V2:V2").FormulaR1C1
-                            .Range("W" & J & ":W" & J).Formula = .Range("W2:W2").FormulaR1C1
-                            .Range("X" & J & ":X" & J).Formula = .Range("X2:X2").FormulaR1C1
-                            .Range("AB" & J & ":AB" & J).Formula = .Range("AB2:AB2").FormulaR1C1
-                            .Range("AC" & J & ":AC" & J).Formula = .Range("AC2:AC2").FormulaR1C1
-                            .Range("AE" & J & ":AE" & J).Formula = .Range("AE2:AE2").FormulaR1C1
-                            .Range("AG" & J & ":AG" & J).Formula = .Range("AG2:AG2").FormulaR1C1
-                            .Range("AH" & J & ":AH" & J).Formula = .Range("AH2:AH2").FormulaR1C1
-                            .Range("AJ" & J & ":AJ" & J).Formula = .Range("AJ2:AJ2").FormulaR1C1
-                            .Range("AK" & J & ":AK" & J).Formula = .Range("AK2:AK2").FormulaR1C1
-                            .Range("AL" & J & ":AL" & J).Formula = .Range("AL2:AL2").FormulaR1C1
-                            .Range("AN" & J & ":AN" & J).Formula = .Range("AN2:AN2").FormulaR1C1
-                            .Range("AO" & J & ":AO" & J).Formula = .Range("AO2:AO2").FormulaR1C1
-                            .Range("AP" & J & ":AP" & J).Formula = .Range("AP2:AP2").FormulaR1C1
-                            .Range("AQ" & J & ":AQ" & J).Formula = .Range("AQ2:AQ2").FormulaR1C1
-                            .Range("AR" & J & ":AR" & J).Formula = .Range("AR2:AR2").FormulaR1C1
-                            .Range("AS" & J & ":AS" & J).Formula = .Range("AS2:AS2").FormulaR1C1
-                            .Range("AT" & J & ":AT" & J).Formula = .Range("AT2:AT2").FormulaR1C1
-                            .Range("AV" & J & ":AV" & J).Formula = .Range("AV2:AV2").FormulaR1C1
-                            .Range("AW" & J & ":AW" & J).Formula = .Range("AW2:AW2").FormulaR1C1
-                            .Range("AX" & J & ":AX" & J).Formula = .Range("AX2:AX2").FormulaR1C1
-                            .Range("AY" & J & ":AY" & J).Formula = .Range("AY2:AY2").FormulaR1C1
-                            .Range("BB" & J & ":BB" & J).Formula = .Range("BB2:BB2").FormulaR1C1
-                            .Range("BD" & J & ":BD" & J).Formula = .Range("BD2:BD2").FormulaR1C1
-                            .Range("BE" & J & ":BE" & J).Formula = .Range("BE2:BE2").FormulaR1C1
-                            .Range("BG" & J & ":BG" & J).Formula = .Range("BG2:BG2").FormulaR1C1
-                            .Range("BH" & J & ":BH" & J).Formula = .Range("BH2:BH2").FormulaR1C1
-                            .Range("BI" & J & ":BI" & J).Formula = .Range("BI2:BI2").FormulaR1C1
-                            .Range("BJ" & J & ":BJ" & J).Formula = .Range("BJ2:BJ2").FormulaR1C1
-                            .Range("BK" & J & ":BK" & J).Formula = .Range("BK2:BK2").FormulaR1C1
-                            .Range("BL" & J & ":BL" & J).Formula = .Range("BL2:BL2").FormulaR1C1
-                            ' Recalculate the entire row.
-                            .Range("A" & J & ":BO" & J).Calculate
-                            ' next row
-                            J = J + 1
-                        Wend
-                    Else
-                        MsgBox ("The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet.")
-                    End If
-                End If
-            End With
-            ' Recalculate all worksheets.
-            Application.Calculate
-            ' Now convert all impacted formulae back to values.
-            'TODO. loop through SHEETNAME1 as above and change formulae to values for any row impacted.
-            ' Convert all formulae on the FinalABC sheet to values.  Leaves row 2 alone.
-            If (i > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                With .Sheets("FinalABC")
-                    ' Activate the sheet.
-                    .Activate
-                    .Range("K" & i & ":K" & i) = .Range("K" & i & ":K" & i).Value
-                    .Range("L" & i & ":L" & i) = .Range("L" & i & ":L" & i).Value
-                    .Range("M" & i & ":M" & i) = .Range("M" & i & ":M" & i).Value
-                    .Range("N" & i & ":N" & i) = .Range("N" & i & ":N" & i).Value
-                    .Range("P" & i & ":P" & i) = .Range("P" & i & ":P" & i).Value
-                    .Range("Q" & i & ":Q" & i) = .Range("Q" & i & ":Q" & i).Value
-                    .Range("AI" & i & ":AI" & i) = .Range("AI" & i & ":AI" & i).Value
-                    .Range("AJ" & i & ":AJ" & i) = .Range("AJ" & i & ":AJ" & i).Value
-                    .Range("AK" & i & ":AK" & i) = .Range("AK" & i & ":AK" & i).Value
-                    .Range("AL" & i & ":AL" & i) = .Range("AL" & i & ":AL" & i).Value
-                    .Range("AM" & i & ":AM" & i) = .Range("AM" & i & ":AM" & i).Value
-                    .Range("AR" & i & ":AR" & i) = .Range("AR" & i & ":AR" & i).Value
-                    .Range("AS" & i & ":AS" & i) = .Range("AS" & i & ":AS" & i).Value
-                    .Range("AT" & i & ":AT" & i) = .Range("AT" & i & ":AT" & i).Value
-                End With
-            End If
-            ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-            'With Workbooks(my1042Rec).Sheets("SHEETNAME1")
-            '    .Range("A3:A" & lastrow) = .Range("A3:A" & lastrow).Value
-            '    .Range("B3:B" & lastrow) = .Range("B3:B" & lastrow).Value
-            '    '...
-            '    '...
-            'End With
-            ' Convert all formulae on the SHEETNAME1 sheet to values.  Leaves row 2 alone.
-            With .Sheets("SHEETNAME1")
-                ' Activate the sheet.
-                .Activate
-                ' Now get index of first row in SHEETNAME1 sheet that contains same affected ISIN.
-                Set rng = .Range("A1:A" & lastrow_SHEETNAME1)
-                If WorksheetFunction.CountIf(rng, FinalABC_ISIN) > 0 Then
-                    var = WorksheetFunction.Match(FinalABC_ISIN, rng, 0)
-                    If Not IsError(var) Then
-                        J = var
-                        SHEETNAME1_ISIN = .Range("A" & J).Value
-                        ' For every row that has same ISIN re-enable formulae in SHEETNAME1 sheet.
-                        ' Convert all formula cells in the row back to values.
-                        While .Range("A" & J).Value = SHEETNAME1_ISIN
-                            If (J > 2) Then     ' leave row 2 alone, i.e. leave as formulae.
-                                .Range("A" & J & ":A" & J) = .Range("A" & J & ":A" & J).Value
-                                .Range("B" & J & ":B" & J) = .Range("B" & J & ":B" & J).Value
-                                .Range("F" & J & ":F" & J) = .Range("F" & J & ":F" & J).Value
-                                .Range("H" & J & ":H" & J) = .Range("H" & J & ":H" & J).Value
-                                .Range("J" & J & ":J" & J) = .Range("J" & J & ":J" & J).Value
-                                .Range("L" & J & ":L" & J) = .Range("L" & J & ":L" & J).Value
-                                .Range("M" & J & ":M" & J) = .Range("M" & J & ":M" & J).Value
-                                .Range("T" & J & ":T" & J) = .Range("T" & J & ":T" & J).Value
-                                .Range("V" & J & ":V" & J) = .Range("V" & J & ":V" & J).Value
-                                .Range("W" & J & ":W" & J) = .Range("W" & J & ":W" & J).Value
-                                .Range("X" & J & ":X" & J) = .Range("X" & J & ":X" & J).Value
-                                .Range("AB" & J & ":AB" & J) = .Range("AB" & J & ":AB" & J).Value
-                                .Range("AC" & J & ":AC" & J) = .Range("AC" & J & ":AC" & J).Value
-                                .Range("AE" & J & ":AE" & J) = .Range("AE" & J & ":AE" & J).Value
-                                .Range("AG" & J & ":AG" & J) = .Range("AG" & J & ":AG" & J).Value
-                                .Range("AH" & J & ":AH" & J) = .Range("AH" & J & ":AH" & J).Value
-                                .Range("AJ" & J & ":AJ" & J) = .Range("AJ" & J & ":AJ" & J).Value
-                                .Range("AK" & J & ":AK" & J) = .Range("AK" & J & ":AK" & J).Value
-                                .Range("AL" & J & ":AL" & J) = .Range("AL" & J & ":AL" & J).Value
-                                .Range("AN" & J & ":AN" & J) = .Range("AN" & J & ":AN" & J).Value
-                                .Range("AO" & J & ":AO" & J) = .Range("AO" & J & ":AO" & J).Value
-                                .Range("AP" & J & ":AP" & J) = .Range("AP" & J & ":AP" & J).Value
-                                .Range("AQ" & J & ":AQ" & J) = .Range("AQ" & J & ":AQ" & J).Value
-                                .Range("AR" & J & ":AR" & J) = .Range("AR" & J & ":AR" & J).Value
-                                .Range("AS" & J & ":AS" & J) = .Range("AS" & J & ":AS" & J).Value
-                                .Range("AT" & J & ":AT" & J) = .Range("AT" & J & ":AT" & J).Value
-                                .Range("AV" & J & ":AV" & J) = .Range("AV" & J & ":AV" & J).Value
-                                .Range("AW" & J & ":AW" & J) = .Range("AW" & J & ":AW" & J).Value
-                                .Range("AX" & J & ":AX" & J) = .Range("AX" & J & ":AX" & J).Value
-                                .Range("AY" & J & ":AY" & J) = .Range("AY" & J & ":AY" & J).Value
-                                .Range("BB" & J & ":BB" & J) = .Range("BB" & J & ":BB" & J).Value
-                                .Range("BD" & J & ":BD" & J) = .Range("BD" & J & ":BD" & J).Value
-                                .Range("BE" & J & ":BE" & J) = .Range("BE" & J & ":BE" & J).Value
-                                .Range("BG" & J & ":BG" & J) = .Range("BG" & J & ":BG" & J).Value
-                                .Range("BH" & J & ":BH" & J) = .Range("BH" & J & ":BH" & J).Value
-                                .Range("BI" & J & ":BI" & J) = .Range("BI" & J & ":BI" & J).Value
-                                .Range("BJ" & J & ":BJ" & J) = .Range("BJ" & J & ":BJ" & J).Value
-                                .Range("BK" & J & ":BK" & J) = .Range("BK" & J & ":BK" & J).Value
-                                .Range("BL" & J & ":BL" & J) = .Range("BL" & J & ":BL" & J).Value
-                            End If
-                            ' next row
-                            J = J + 1
-                        Wend
-                    Else
-                        MsgBox ("The ISIN " & FinalABC_ISIN & " cannot be found in the SHEETNAME1 sheet.")
-                    End If
-                End If
-            End With
-        Next i
-    End With
-    ' Clear all objects.
-    Set pt = Nothing
-End Sub
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-'*************************************************************************************************
-' Copies all formulae down on the FinalABC sheet.
-' Does not calculate.  This needs to be requested separately when needed.  Probably only once the SHEETNAME1 sheet populated too.
-' Does not change the formula to values.  For that use the separate subroutine.
-' This may run for a very long time.  Go have a coffee.
-Sub M12000_Copy_FinalABC_Formulae_Down()
-    Dim mycell As Variant
-    Dim lastrow_FinalABC As Long
-    Dim Pmt_Curr As Variant
-    Dim FX_Rate As Variant
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy all FinalABC formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            'lastrow = Workbooks(my1042Rec).Sheets("FinalABC").Range("D65536").End(xlUp).Row
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Ensure that FX_Rate has a default value.
-            'For Each mycell In Workbooks(my1042Rec).Sheets("FinalABC").Range("AC2", Range("AC65536").End(xlUp))
-            For Each mycell In .Range("AE2:AE" & lastrow_FinalABC)
-                If Not mycell Like "*[0-9]*" Then mycell.Formula = 1
-            Next mycell
-            ' Copies formulae down.
-            .Range("A2:C2").AutoFill Destination:=.Range("A2:C" & lastrow_FinalABC)
-            .Range("E2").AutoFill Destination:=.Range("E2:E" & lastrow_FinalABC)
-            .Range("K2:N2").AutoFill Destination:=.Range("K2:N" & lastrow_FinalABC)
-            .Range("P2:Q2").AutoFill Destination:=.Range("P2:Q" & lastrow_FinalABC)
-            .Range("AI2:AM2").AutoFill Destination:=.Range("AI2:AM" & lastrow_FinalABC)
-            .Range("AR2:AT2").AutoFill Destination:=.Range("AR2:AT" & lastrow_FinalABC)
-            ' Calculations.
-            '  .Range("K2:N" & lastrow_FinalABC).Calculate
-            '  .Range("P2:P" & lastrow_FinalABC).Calculate
-            '  .Range("E2:E" & lastrow_FinalABC).Calculate
-            '  .Range("A2:C" & lastrow_FinalABC).Calculate
-            '  .Range("AG2:AK" & lastrow_FinalABC).Calculate
-            '  .Range("AP2:AR" & lastrow_FinalABC).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            '    .Range("E3:E" & lastrow_FinalABC) = .Range("E3:E" & lastrow_FinalABC).Value
-            '    .Range("K3:N" & lastrow_FinalABC) = .Range("K3:N" & lastrow_FinalABC).Value
-            '    .Range("A3:C" & lastrow_FinalABC) = .Range("A3:C" & lastrow_FinalABC).Value
-            '    .Range("P3:P" & lastrow_FinalABC) = .Range("P3:P" & lastrow_FinalABC).Value
-            '    .Range("AG3:AK" & lastrow_FinalABC) = .Range("AG3:AK" & lastrow_FinalABC).Value
-            '    .Range("AP3:AR" & lastrow_FinalABC) = .Range("AP3:AR" & lastrow_FinalABC).Value
-            'For Each Pmt_Curr In Sheets("FinalABC").Range("G2", Range("H65536").End(xlUp).Offset(0, -1))
-            'For Each Pmt_Curr In Sheets("FinalABC").Range("G2", Range("G65536").End(xlUp))
-            For Each Pmt_Curr In Sheets("FinalABC").Range("G2:G" & lastrow_FinalABC)
-                If RTrim(LTrim(Pmt_Curr)) = "" Then Pmt_Curr.Value = "USD"
-            Next Pmt_Curr
-            'For Each FX_Rate In Sheets("FinalABC").Range("AE2", Range("AE65536").End(xlUp).Offset(0, -1))
-            'For Each FX_Rate In Sheets("FinalABC").Range("AE2", Range("AE65536").End(xlUp))
-            For Each FX_Rate In Sheets("FinalABC").Range("AE2:AE" & lastrow_FinalABC)
-                If IsNumeric(FX_Rate) = False Then FX_Rate.Value = 1
-            Next FX_Rate
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set mycell = Nothing
-    Set Pmt_Curr = Nothing
-    Set FX_Rate = Nothing
-End Sub
-' Converts all formulae on the FinalABC sheet to Values.
-' Does not change row 2 of the FinalABC sheet.  This retains the formulae in this row.
-' This may run for a very long time.  Go have a coffee.
-Sub M12010_Convert_FinalABC_Formulae_to_Values()
-    Dim lastrow_FinalABC As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Convert all FinalABC formulae to Values?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("FinalABC")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            'lastrow = .Range("D65536").End(xlUp).Row
-            lastrow_FinalABC = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_FinalABC < 3 Then
-                lastrow_FinalABC = 3
-            End If
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("A3:C" & lastrow_FinalABC) = .Range("A3:C" & lastrow_FinalABC).Value
-            .Range("E3:E" & lastrow_FinalABC) = .Range("E3:E" & lastrow_FinalABC).Value
-            .Range("K3:N" & lastrow_FinalABC) = .Range("K3:N" & lastrow_FinalABC).Value
-            .Range("P3:Q" & lastrow_FinalABC) = .Range("P3:Q" & lastrow_FinalABC).Value
-            .Range("AI3:AM" & lastrow_FinalABC) = .Range("AI3:AM" & lastrow_FinalABC).Value
-            .Range("AR3:AT" & lastrow_FinalABC) = .Range("AR3:AT" & lastrow_FinalABC).Value
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-End Sub
-' Copies down all formulae on the SHEETNAME1 sheet.
-' Does not change the formula to values.  For that use the separate subroutine.
-' Does not calculate.  This needs to be requested separately when needed.  Probably only once the FinalABC sheet populated too.
-' This may run for a very long time.  Go have a coffee.
-Sub M12020_Copy_SHEETNAME1_Formulae_Down()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Copy all SHEETNAME1 formulae down?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            'lastrow = .Range("D65536").End(xlUp).Row
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Copies formulae down.
-            .Range("A2:B2").AutoFill Destination:=.Range("A2:B" & lastrow_SHEETNAME1)
-            .Range("F2:F2").AutoFill Destination:=.Range("F2:F" & lastrow_SHEETNAME1)
-            .Range("H2:H2").AutoFill Destination:=.Range("H2:H" & lastrow_SHEETNAME1)
-            .Range("J2:J2").AutoFill Destination:=.Range("J2:J" & lastrow_SHEETNAME1)
-            .Range("L2:L2").AutoFill Destination:=.Range("L2:L" & lastrow_SHEETNAME1)
-            .Range("T2:T2").AutoFill Destination:=.Range("T2:T" & lastrow_SHEETNAME1)
-            .Range("V2:X2").AutoFill Destination:=.Range("V2:X" & lastrow_SHEETNAME1)
-            .Range("AB2:AC2").AutoFill Destination:=.Range("AB2:AC" & lastrow_SHEETNAME1)
-            .Range("AE2:AE2").AutoFill Destination:=.Range("AE2:AE" & lastrow_SHEETNAME1)
-            .Range("AG2:AH2").AutoFill Destination:=.Range("AG2:AH" & lastrow_SHEETNAME1)
-            .Range("AJ2:AL2").AutoFill Destination:=.Range("AJ2:AL" & lastrow_SHEETNAME1)
-            .Range("AN2:AT2").AutoFill Destination:=.Range("AN2:AT" & lastrow_SHEETNAME1)
-            .Range("AV2:AY2").AutoFill Destination:=.Range("AV2:AY" & lastrow_SHEETNAME1)
-            .Range("BB2:BB2").AutoFill Destination:=.Range("BB2:BB" & lastrow_SHEETNAME1)
-            .Range("BD2:BE2").AutoFill Destination:=.Range("BD2:BE" & lastrow_SHEETNAME1)
-            .Range("BG2:BL2").AutoFill Destination:=.Range("BG2:BL" & lastrow_SHEETNAME1)
-            .Range("BM2:BM2").AutoFill Destination:=.Range("BM2:BM" & lastrow_SHEETNAME1)
-            ' Calculations.
-            '.Range("A2", Range("B" & lastrow_SHEETNAME1 + 1).End(xlUp).Offset(0, 0)).Calculate
-            '.Range("A2:B" & lastrow_SHEETNAME1).Calculate
-            '.Range("F2:F" & lastrow_SHEETNAME1).Calculate
-            '.Range("H2:H" & lastrow_SHEETNAME1).Calculate
-            '.Range("J2:L" & lastrow_SHEETNAME1).Calculate
-            '.Range("S2:S" & lastrow_SHEETNAME1).Calculate
-            '.Range("U2:W" & lastrow_SHEETNAME1).Calculate
-            '.Range("AA2:AB" & lastrow_SHEETNAME1).Calculate
-            '.Range("AD2:AD" & lastrow_SHEETNAME1).Calculate
-            '.Range("AF2:AG" & lastrow_SHEETNAME1).Calculate
-            '.Range("AI2:AK" & lastrow_SHEETNAME1).Calculate
-            '.Range("AM2:AS" & lastrow_SHEETNAME1).Calculate
-            '.Range("AU2:AX" & lastrow_SHEETNAME1).Calculate
-            '.Range("BA2:BA" & lastrow_SHEETNAME1).Calculate
-            '.Range("BC2:BD" & lastrow_SHEETNAME1).Calculate
-            '.Range("BF2:BK" & lastrow_SHEETNAME1).Calculate
-            '.Range("BL2:BL" & lastrow_SHEETNAME1).Calculate
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            '.Range("A3:A" & lastrow_SHEETNAME1) = .Range("A3:A" & lastrow_SHEETNAME1).Value
-            '.Range("B3:B" & lastrow_SHEETNAME1) = .Range("B3:B" & lastrow_SHEETNAME1).Value
-            '.Range("F3:F" & lastrow_SHEETNAME1) = .Range("F3:F" & lastrow_SHEETNAME1).Value
-            '.Range("H3:H" & lastrow_SHEETNAME1) = .Range("H3:H" & lastrow_SHEETNAME1).Value
-            '.Range("J3:J" & lastrow_SHEETNAME1) = .Range("J3:J" & lastrow_SHEETNAME1).Value
-            '.Range("K3:K" & lastrow_SHEETNAME1) = .Range("K3:K" & lastrow_SHEETNAME1).Value
-            '.Range("L3:L" & lastrow_SHEETNAME1) = .Range("L3:L" & lastrow_SHEETNAME1).Value
-            '.Range("S3:S" & lastrow_SHEETNAME1) = .Range("S3:S" & lastrow_SHEETNAME1).Value
-            '.Range("U3:U" & lastrow_SHEETNAME1) = .Range("U3:U" & lastrow_SHEETNAME1).Value
-            '.Range("V3:V" & lastrow_SHEETNAME1) = .Range("V3:V" & lastrow_SHEETNAME1).Value
-            '.Range("W3:W" & lastrow_SHEETNAME1) = .Range("W3:W" & lastrow_SHEETNAME1).Value
-            '.Range("AA3:AA" & lastrow_SHEETNAME1) = .Range("AA3:AA" & lastrow_SHEETNAME1).Value
-            '.Range("AB3:AB" & lastrow_SHEETNAME1) = .Range("AB3:AB" & lastrow_SHEETNAME1).Value
-            '.Range("AD3:AD" & lastrow_SHEETNAME1) = .Range("AD3:AD" & lastrow_SHEETNAME1).Value
-            '.Range("AF3:AF" & lastrow_SHEETNAME1) = .Range("AF3:AF" & lastrow_SHEETNAME1).Value
-            '.Range("AG3:AG" & lastrow_SHEETNAME1) = .Range("AG3:AG" & lastrow_SHEETNAME1).Value
-            '.Range("AI3:AI" & lastrow_SHEETNAME1) = .Range("AI3:AI" & lastrow_SHEETNAME1).Value
-            '.Range("AJ3:AJ" & lastrow_SHEETNAME1) = .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value
-            '.Range("AK3:AK" & lastrow_SHEETNAME1) = .Range("AK3:AK" & lastrow_SHEETNAME1).Value
-            '.Range("AM3:AM" & lastrow_SHEETNAME1) = .Range("AM3:AM" & lastrow_SHEETNAME1).Value
-            '.Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            '.Range("AO3:AR" & lastrow_SHEETNAME1) = .Range("AO3:AR" & lastrow_SHEETNAME1).Value
-            '.Range("AP3:AP" & lastrow_SHEETNAME1) = .Range("AP3:AP" & lastrow_SHEETNAME1).Value
-            '.Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            '.Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            '.Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            '.Range("AU3:AU" & lastrow_SHEETNAME1) = .Range("AU3:AU" & lastrow_SHEETNAME1).Value
-            '.Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            '.Range("AW3:AW" & lastrow_SHEETNAME1) = .Range("AW3:AW" & lastrow_SHEETNAME1).Value
-            '.Range("AX3:AX" & lastrow_SHEETNAME1) = .Range("AX3:AX" & lastrow_SHEETNAME1).Value
-            '.Range("BA3:BA" & lastrow_SHEETNAME1) = .Range("BA3:BA" & lastrow_SHEETNAME1).Value
-            '.Range("BC3:BC" & lastrow_SHEETNAME1) = .Range("BC3:BC" & lastrow_SHEETNAME1).Value
-            '.Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            '.Range("BF3:BF" & lastrow_SHEETNAME1) = .Range("BF3:BF" & lastrow_SHEETNAME1).Value
-            '.Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BG3:BG" & lastrow_SHEETNAME1).Value
-            '.Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            '.Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            '.Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            '.Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            '.Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-End Sub
-' Converts all formulae cells on the SHEETNAME1 sheet into values.
-' Does not change row 2 of the SHEETNAME1 sheet.  This retains the formulae in this row.
-' This may run for a very long time.  Go have a coffee.
-Sub M12030_Convert_SHEETNAME1_Formulae_to_Values()
-    Dim lastrow_SHEETNAME1 As Long
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Convert SHEETNAME1 formulae to values?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        With .Sheets("SHEETNAME1")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            'lastrow = Workbooks(my1042Rec).Sheets("SHEETNAME1").Range("D65536").End(xlUp).Row
-            lastrow_SHEETNAME1 = .Cells(Rows.Count, 4).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_SHEETNAME1 < 3 Then
-                lastrow_SHEETNAME1 = 3
-            End If
-            ' Now copy and paste formula ranges as values to speed up the file processing.
-            .Range("A3:A" & lastrow_SHEETNAME1) = .Range("A3:A" & lastrow_SHEETNAME1).Value
-            .Range("B3:B" & lastrow_SHEETNAME1) = .Range("B3:B" & lastrow_SHEETNAME1).Value
-            .Range("F3:F" & lastrow_SHEETNAME1) = .Range("F3:F" & lastrow_SHEETNAME1).Value
-            .Range("H3:H" & lastrow_SHEETNAME1) = .Range("H3:H" & lastrow_SHEETNAME1).Value
-            .Range("J3:J" & lastrow_SHEETNAME1) = .Range("J3:J" & lastrow_SHEETNAME1).Value
-            .Range("L3:L" & lastrow_SHEETNAME1) = .Range("L3:L" & lastrow_SHEETNAME1).Value
-            .Range("M3:M" & lastrow_SHEETNAME1) = .Range("M3:M" & lastrow_SHEETNAME1).Value
-            .Range("T3:T" & lastrow_SHEETNAME1) = .Range("T3:T" & lastrow_SHEETNAME1).Value
-            .Range("V3:V" & lastrow_SHEETNAME1) = .Range("V3:V" & lastrow_SHEETNAME1).Value
-            .Range("W3:W" & lastrow_SHEETNAME1) = .Range("W3:W" & lastrow_SHEETNAME1).Value
-            .Range("X3:X" & lastrow_SHEETNAME1) = .Range("X3:X" & lastrow_SHEETNAME1).Value
-            .Range("AB3:AB" & lastrow_SHEETNAME1) = .Range("AB3:AB" & lastrow_SHEETNAME1).Value
-            .Range("AC3:AC" & lastrow_SHEETNAME1) = .Range("AC3:AC" & lastrow_SHEETNAME1).Value
-            .Range("AE3:AE" & lastrow_SHEETNAME1) = .Range("AE3:AE" & lastrow_SHEETNAME1).Value
-            .Range("AG3:AG" & lastrow_SHEETNAME1) = .Range("AG3:AG" & lastrow_SHEETNAME1).Value
-            .Range("AH3:AH" & lastrow_SHEETNAME1) = .Range("AH3:AH" & lastrow_SHEETNAME1).Value
-            .Range("AJ3:AJ" & lastrow_SHEETNAME1) = .Range("AJ3:AJ" & lastrow_SHEETNAME1).Value
-            .Range("AK3:AK" & lastrow_SHEETNAME1) = .Range("AK3:AK" & lastrow_SHEETNAME1).Value
-            .Range("AL3:AL" & lastrow_SHEETNAME1) = .Range("AL3:AL" & lastrow_SHEETNAME1).Value
-            .Range("AN3:AN" & lastrow_SHEETNAME1) = .Range("AN3:AN" & lastrow_SHEETNAME1).Value
-            .Range("AO3:AO" & lastrow_SHEETNAME1) = .Range("AO3:AO" & lastrow_SHEETNAME1).Value
-            .Range("AP3:AP" & lastrow_SHEETNAME1) = .Range("AP3:AP" & lastrow_SHEETNAME1).Value
-            .Range("AQ3:AQ" & lastrow_SHEETNAME1) = .Range("AQ3:AQ" & lastrow_SHEETNAME1).Value
-            .Range("AR3:AR" & lastrow_SHEETNAME1) = .Range("AR3:AR" & lastrow_SHEETNAME1).Value
-            .Range("AS3:AS" & lastrow_SHEETNAME1) = .Range("AS3:AS" & lastrow_SHEETNAME1).Value
-            .Range("AT3:AT" & lastrow_SHEETNAME1) = .Range("AT3:AT" & lastrow_SHEETNAME1).Value
-            .Range("AV3:AV" & lastrow_SHEETNAME1) = .Range("AV3:AV" & lastrow_SHEETNAME1).Value
-            .Range("AW3:AW" & lastrow_SHEETNAME1) = .Range("AW3:AW" & lastrow_SHEETNAME1).Value
-            .Range("AX3:AX" & lastrow_SHEETNAME1) = .Range("AX3:AX" & lastrow_SHEETNAME1).Value
-            .Range("AY3:AY" & lastrow_SHEETNAME1) = .Range("AY3:AY" & lastrow_SHEETNAME1).Value
-            .Range("BB3:BB" & lastrow_SHEETNAME1) = .Range("BB3:BB" & lastrow_SHEETNAME1).Value
-            .Range("BD3:BD" & lastrow_SHEETNAME1) = .Range("BD3:BD" & lastrow_SHEETNAME1).Value
-            .Range("BE3:BE" & lastrow_SHEETNAME1) = .Range("BE3:BE" & lastrow_SHEETNAME1).Value
-            .Range("BG3:BG" & lastrow_SHEETNAME1) = .Range("BG3:BG" & lastrow_SHEETNAME1).Value
-            .Range("BH3:BH" & lastrow_SHEETNAME1) = .Range("BH3:BH" & lastrow_SHEETNAME1).Value
-            .Range("BI3:BI" & lastrow_SHEETNAME1) = .Range("BI3:BI" & lastrow_SHEETNAME1).Value
-            .Range("BJ3:BJ" & lastrow_SHEETNAME1) = .Range("BJ3:BJ" & lastrow_SHEETNAME1).Value
-            .Range("BK3:BK" & lastrow_SHEETNAME1) = .Range("BK3:BK" & lastrow_SHEETNAME1).Value
-            .Range("BL3:BL" & lastrow_SHEETNAME1) = .Range("BL3:BL" & lastrow_SHEETNAME1).Value
-            .Range("BM3:BM" & lastrow_SHEETNAME1) = .Range("BM3:BM" & lastrow_SHEETNAME1).Value
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-End Sub
-' Imports the Wxxxx file.
-Sub M13000_Import_Wxxxx()
-    Dim fileToOpen As Variant
-    Dim count_Wxxxx As Double
-    Dim count_InputFile As Double
-    Dim lastrow_Wxxxx As Long
-    Dim lastrow_InputFile As Long
-    Dim my_from_column As Variant
-    Dim my_to_column As Variant
-    Dim fileToOpen_name As String
-    Dim FileParts() As String
-    ' Initialize global vars.
-    Call Z00000_Init
-    ' Ask user.
-    If ctrl_ask_before_running_subroutine = True Then
-        If MsgBox("Import Wxxxx?", vbYesNo) = vbNo Then Exit Sub
-    End If
-    With Workbooks(wb_name)
-        ' First clears out existing Wxxxx sheet, besides row 2 which is kept as it contains formulae.
-        With .Sheets("Wxxxx")
-            ' Activates the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_Wxxxx = .Cells(Rows.Count, 2).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_Wxxxx < 2 Then
-                lastrow_Wxxxx = 2
-            End If
-            ' Clear entire Wxxxx sheet, except for columns Y & Z which contains formulae.
-            DeleteUnusedOnSheet ("Wxxxx")
-            .Range("A2:Z" & lastrow_Wxxxx).ClearContents
-            .Range("A2:Z" & lastrow_Wxxxx).Delete
-            ' Control to confirm there is currently no data in the sheet.
-            If WorksheetFunction.CountA(.Range("A2:Z" & lastrow_Wxxxx)) Then
-                MsgBox "There is data still present in the Wxxxx sheet, these should be blank. Ensure they are empty before running this process"
-                Exit Sub
-            End If
-        End With
-    End With
-    ' Ask user for a Wxxxx file to load.
-    fileToOpen = Application.GetOpenFilename("Excel files (*.xls; *.xlsx; *.csv),*.xls; *.xlsx; *.csv", , "Select Wxxxx file")
-    If fileToOpen = False Then
-        MsgBox "No Wxxxx file selected.  No data copied across to the Wxxxx sheet."
-        Exit Sub
-    End If
-    FileParts() = Split(fileToOpen, Application.PathSeparator)
-    fileToOpen_name = FileParts(UBound(FileParts))
-    ' Start of copying columns across.
-    With Workbooks.Open(fileToOpen)
-        With .Sheets(1)
-            ' Activate the workbook.
-            .Activate
-            ' Control to check that the Wxxxx file is in the usual format.
-'            If .Range("A2") Like "???????" Then
-'            Else
-'                If ctrl_close_erroneous_files = True Then
-                    ' Close the file.
-'                    Application.DisplayAlerts = False
-'                    Workbooks(fileToOpen_name).Close
-'                    Application.DisplayAlerts = True
-'                End If
-'                MsgBox "The Wxxxx file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across."
-'                Exit Sub
-'            End If
-            ' Control to check that the Wxxxx file is in the usual format.
-            If WorksheetFunction.CountA(.Range("A1:X1")) = 24 Then
-            Else
-                If ctrl_close_erroneous_files = True Then
-                    ' Close the file.
-                   Application.DisplayAlerts = False
-                    Workbooks(fileToOpen_name).Close
-                    Application.DisplayAlerts = True
-                End If
-                MsgBox "The Wxxxx file is not in the usual format, it may have been change since the code was written, please follow the procedure to manually copy the columns across"
-                Exit Sub
-            End If
-            ' Determine how many rows in the input file.
-            lastrow_InputFile = .Cells(Rows.Count, 2).End(xlUp).Row
-'            MsgBox ActiveWorkbook.Sheets(1).Name
-            ' Copy all columns from Wxxxx file into master sheet where column names match.
-            For Each my_from_column In .Range("A1:X1") ' Range is all columns in Wxxxx file.
-                For Each my_to_column In Workbooks(wb_name).Sheets("Wxxxx").Range("A1:X1") ' X is last column containing data from Wxxxx file.
-                    If my_from_column = my_to_column Then
-                        .Range(Cells(2, my_from_column.Column), Cells(lastrow_InputFile + 1, my_from_column.Column).End(xlUp)).Copy Workbooks(wb_name).Sheets("Wxxxx").Cells(2, my_to_column.Column)
-                    End If
-                Next my_to_column
-            Next my_from_column
-            ' Counts the number of cells from the input file that should have been copied across.
-            count_InputFile = WorksheetFunction.CountA(.Range("A2:X" & lastrow_InputFile))
-        End With
-        ' Close the file.
-        Application.DisplayAlerts = False
-        .Close
-        Application.DisplayAlerts = True
-    End With
-    ' Counts the number of cells in the Wxxxx sheet that have been copied across.
-    With Workbooks(wb_name)
-        ' Activate the workbook.
-        .Activate
-        With .Sheets("Wxxxx")
-            ' Activate the sheet.
-            .Activate
-            ' Get how many rows of data have been loaded into the sheet.
-            lastrow_Wxxxx = .Cells(Rows.Count, 2).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_Wxxxx < 2 Then
-                lastrow_Wxxxx = 2
-            End If
-            ' Count how much data has been loaded into the Wxxxx sheet.
-            count_Wxxxx = WorksheetFunction.CountA(.Range("A2:X" & lastrow_Wxxxx))
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Control to ensure that the number of cells copied across matches those in the originating file.
-    If count_Wxxxx <> count_InputFile Then
-        MsgBox "The number of cells copied from the Wxxxx file does not equal the number of cells copied to the 1042 rec. Please manually copy them across."
-        Exit Sub
-    End If
-    ' Add in formulae and sort the Wxxxx sheet.
-    With Workbooks(wb_name)
-        With .Sheets("Wxxxx")
-            ' Activates the sheet.
-            .Activate
-            ' Determine the number of rows.
-            lastrow_Wxxxx = .Cells(Rows.Count, 2).End(xlUp).Row
-            ' Prevent line 2 being deleted - as this contains the formulae which need coping down later.
-            If lastrow_Wxxxx < 2 Then
-                lastrow_Wxxxx = 2
-            End If
-            ' Resets formulae on "Wxxxx".
-            .Range("Y2").Formula = "=IF(AND(YEAR(T2)>=YEAR(NOW()), YEAR(T2)-YEAR(S2)<=3),IF(TRIM(C2)<>"""",IF(E2=TRUE,IF(G2=TRUE,IF(TRIM(K2)<>""All Other Countries"",IF(O2=TRUE,IF(P2=TRUE,IF(Q2=TRUE,IF(X2=FALSE,""YES"",""NO1""),""NO2""),""NO3""),""NO4""),""NO5""),""NO6""),""NO7""),""NO8""),""NO9"")"
-            .Range("Z2").Formula = "=IF(Y2=""YES"",IFERROR(VLOOKUP(K2,References!AI:AJ,2,FALSE),30),30)"
-            .Range("Y2:Z2").AutoFill Destination:=.Range("Y2:Z" & lastrow_Wxxxx)
-            .Range("Y3:Z" & lastrow_Wxxxx) = .Range("Y3:Z" & lastrow_Wxxxx).Value
-           ' Do the sort.
-            With .Sort
-                '.AutoFilter
-                With .SortFields
-                    .Clear
-                    .Add Key:=Range("B1:B" & lastrow_Wxxxx), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-                End With
-                .SetRange Range("A1:Z" & lastrow_Wxxxx)
-                .Header = xlYes
-                .MatchCase = False
-                .Orientation = xlTopToBottom
-                .SortMethod = xlPinYin
-                .Apply
-            End With
-            ' Select A1.
-            ScrollTo ActiveSheet.name, "A1"
-        End With
-    End With
-    ' Clear all objects.
-    Set my_from_column = Nothing
-    Set my_to_column = Nothing
-End Sub
-</code>