'списки для инициализации Мастер-комбобокса и Подчиненного-комбобокса
'хранятся в rangename
'Например:
' - для значения в мастере  = 'BO' - подчиненный Range("rgBO")
' - для значения в мастере  = 'BO' - подчиненный Range("rgBO")
'...
' - для значения в мастере  = 'BX' - подчиненный Range("rgBX")

    Public Const RangeMasterCombo As String = "col_Master"          ' MASTER column - фактически это Rangename заголовка в таблице
    Public Const RangeSlaveCombo As String = "col_Slave"         ' SLAVE column  - фактически это Rangename заголовка в таблице




' этот код в коде Sheet 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim prevTargetValue As String: prevTargetValue = ""
Dim curTargetValue As String: curTargetValue = ""
    
    If (Target.Column = Range(RangeMasterCombo ).Column) Then
        
        'MsgBox "Address:    " & Target.Address & "  Value = " & Target.Value
        
       ' - определяем значение которое было ДО изменения Мастер-ячейки
        On Error Resume Next
        Application.EnableEvents = False
            curTargetValue = Target.Value
        Application.Undo
            prevTargetValue = Target
            Target = curTargetValue
        Application.EnableEvents = True
        
        On Error GoTo 0
        
            Call ChangeComboBoxItems(RangeMasterCombo , RangeSlaveCombo, Target, prevTargetValue)
        
    End If
    
End Sub


' этот код можно в Module

Sub ChangeComboBoxItems(ByVal MasterRangeName As String, ByVal TargetRangeName As String, ByVal RangeCheck As Range, ByVal prevTargetValue As String)

Dim curRow As Long: curRow = 0
Dim curCol As Long: curCol = 0
Dim curValue As String: curValue = ""


MasterRangeName = Trim(MasterRangeName)

If (Len(MasterRangeName) > 0) Then

    If (Range(MasterRangeName).Column = RangeCheck.Column) Then
    
        On Error Resume Next
        If Not (RangeCheck Is Nothing) Then
            curRow = RangeCheck.Row
            curValue = Trim(RangeCheck.Value & "")
        End If
        On Error GoTo 0
        
        TargetRangeName = Trim(TargetRangeName)
        
        If (Len(TargetRangeName) > 0 And curRow > 0 And Len(curValue) > 0) Then
        
            curCol = Range(TargetRangeName).Column
            Cells(curRow, curCol).Select
            
            With Selection.Validation
                .Delete
                
                    If (UCase(prevTargetValue) <> UCase(curValue)) Then
                        ' if was change in Master Cell then clearing Target Cell
                        Cells(curRow, curCol).Value = ""
                    End If
                
' Formula1:="=rg" & curValue - в моем случае мастер-комбобокс возвращает часть rangename 
' из которого потом подтягиваются значения для подчиенного-комбобокса

                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=rg" & curValue
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
            
            Range("A1").Select
            
        End If
            
            If (Len(TargetRangeName) > 0 And curRow > 0 And Len(curValue) = 0) Then
                curCol = Range(TargetRangeName).Column
                Cells(curRow, curCol).Validation.Delete
                Cells(curRow, curCol).Value = ""
            End If
    
    
    End If '(MasterRangeName).Column
    
End If 'MasterRangeName

End Sub