Sub NamesDropsX()

' clear all Names Удаление ВСЕХ именованных диапозонов
For Each IName In ActiveWorkbook.Names
      IName.Delete ' delete ALL named areas !!!
Next

' set Print Area Устанока Области Печати
    ActiveSheet.PageSetup.PrintArea = "$A$2:$AD$55"

' add "agents" and "pay" - заполнение диапозонов данными
     Sheets("izsniedzeji").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "RK"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "VM"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "JP"
    
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Parskait" ' unicode
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "Skaidra nauda" ' unicode
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "Karte" ' unicode
    
' set Names - pay | agent - Назначение именованных диапозонов
Sheets("izsniedzeji").Select
    Range("A1:A3").Select
    ActiveWorkbook.Names.Add Name:="agent", RefersToR1C1:="=izsniedzeji!R1C1:R3C1"
    Range("B1:B3").Select
    ActiveWorkbook.Names.Add Name:="pay", RefersToR1C1:="=izsniedzeji!R1C2:R3C2"

' clear All Drops - удаление всех выпадающих списков
Sheets("PPR").Select
    ActiveCell.SpecialCells(xlCellTypeAllValidation).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("A18").Select

' set Drop - pay and agent = methode nr.2 - назначение ячеек с выпадающими списками
Sheets("PPR").Select
    Range("J17:O17").Select ' pay name
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=pay"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "ERROR"
        .InputMessage = ""
        .ErrorMessage = "ERROR!!!"
        .ShowInput = False
        .ShowError = True
    End With

        Range("G46:P46").Select ' agent name
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=agent"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "ERROR"
        .InputMessage = ""
        .ErrorMessage = "ERROR!!!"
        .ShowInput = False
        .ShowError = True
    End With
    Range("A1").Select

End Sub