huvanile

Option Explicit

Sub doRSChecks()
    Range("k2:k" & lastUsedRow).ClearContents
    checkForMissingNumbers
    checkForExtraNumbers
    checkRIDCategoryCode
    checkRIDDotsAndHyphens
    MsgBox "Done!"
End Sub

huvanile

Option Explicit
Dim sourceWS As Worksheet
Dim destWS As Worksheet

Sub factoryForLMS()
    If Not doesWSExist("Analysis", ActiveWorkbook.name, False) Then buildAnalysisReport
    buildPerPerson
    Sheets("Analysis").Activate
End Sub

huvanile

Sub Macro4()
    'longVal is collectively more than 255 characters
    Dim longVal As String: longVal = "Lorem,ipsum,dolor,sit,amet,consectetur,adipiscing,elit.,Fusce,dolor,dui,eleifend,in,blandit,ac,,vulputate,ac,purus.,In,sollicitudin,dolor,at,massa,interdum,vulputate.,Etiam,eu,bibendum,elit.,Lorem,ipsum,dolor,sit,amet,consectetur,adipiscing,elit.,Fusce,dolor,dui,eleifend,in,blandit,ac,vulputate,ac,purus."
    With ActiveSheet.Range("a1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=longVal
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""