function depDrop_(range, sourceRange){
  var rule = SpreadsheetApp.newDataValidation().requireValueInRange(sourceRange, true).build();
  range.setDataValidation(rule);
}
function onEdit (){
  var aCell = SpreadsheetApp.getActiveSheet().getActiveCell();
  var aColumn = aCell.getColumn();
  
  if (aColumn == 1 && aCell.getValue() == "") {
    var range = SpreadsheetApp.getActiveSheet().getRange(aCell.getRow(), aColumn + 1);
    range.clearDataValidations();
    range.clearContent();
    return;
  }
  
  if (aColumn == 1 && SpreadsheetApp.getActiveSheet()){
    var range = SpreadsheetApp.getActiveSheet().getRange(aCell.getRow(), aColumn + 1);
    var sourceRange = SpreadsheetApp.getActiveSpreadsheet().getRangeByName(aCell.getValue());
    depDrop_(range, sourceRange);
  }
}

Private Sub Worksheet_Calculate()
    Dim rngRows As Range
    Dim rngSrc As Range
    Dim arr()
     
    Application.EnableEvents = False
     
    PosStr = Cells.SpecialCells(xlCellTypeLastCell).Row
    Set rngSrc = Cells(1, 1).Resize(PosStr)
    rngSrc.EntireRow.Hidden = False
     
    arr = rngSrc.Value
        For r = 1 To PosStr
            If arr(r, 1) = 2 Then
                If Not rngRows Is Nothing Then
                    Set rngRows = Union(rngRows, Rows(r))
                Else
                    Set rngRows = Rows(r)
                End If 'Not rngRows Is Nothing
            End If 'arr(i, 1) = 2
        Next
     
    If Not rngRows Is Nothing Then rngRows.EntireRow.Hidden = True
     
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)Dim sAddress As String
Dim MyCell As Range

    On Error Resume Next
    Set MyCell = Target.Range
    
    ChDir ThisWorkbook.Path & "\Банк изображений\" & Target.Name
    sAddress = Application.GetOpenFilename(Title:="Выберите файл")
    MyCell.Font.ThemeColor = xlThemeColorDark1
    'MyCell.Clear
    Shapes.AddPicture _
        sAddress, False, True, MyCell.Left + 5, MyCell.Top + 5, 100, 80
                
End Sub

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    PosStr = UsedRange.Rows.Count
        For R = 1 To PosStr
        Rows(R).Hidden = Cells(R, 1) = 2
        Next
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
    If [A3] = 0 Then
        Rows(3).EntireRow.Hidden = True
    Else
        Rows(3).EntireRow.Hidden = False
    End If
End Sub

If Target.Address = "D12" Then
     If IsEmpty(Target) Then Exit Sub