Module1.bas

Attribute VB_Name = "Module1"
Option Explicit

Private Const Module_Name As String = "Module1."

Public Sub Auto_Open()
    TableManager.AutoOpen ThisWorkbook
End Sub

Public Sub BuildDataDescriptionTable()
    
    Const RoutineName As String = Module_Name & "BuildDataDescriptionTable"
    On Error GoTo ErrorHandler
    
    If Not TableManager.TableDataCollected Then
        MsgBox "Build the tables first"
        Exit Sub
    End If
    
    TableManager.BuildParameterTableOnWorksheet TableManager.mainworkbook
    
    '@Ignore LineLabelNotUsed
Done:
    Exit Sub
ErrorHandler:
    DisplayError RoutineName

End Sub


Public Sub ExtendDataValidation()

    Const RoutineName As String = Module_Name & "ExtendDataValidation"
    On Error GoTo ErrorHandler
    
    If Not TableManager.TableDataCollected Then
        MsgBox "Build the tables first"
        Exit Sub
    End If
    
    TableManager.ExtendDataValidationThroughAllTables TableManager.mainworkbook
    
    '@Ignore LineLabelNotUsed
Done:
    Exit Sub
ErrorHandler:
    DisplayError RoutineName

End Sub