Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Cells(1).Address = "$B$2" Then
    If ActiveSheet.Range("3:6").EntireRow.Hidden = True Then
       ActiveSheet.Range("3:6").EntireRow.Hidden = False
    Else
    If ActiveSheet.Range("3:6").EntireRow.Hidden = False Then
       ActiveSheet.Range("3:6").EntireRow.Hidden = True
    End If: End If: End If
   
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells(1).Address = "$A$2" Then
        ActiveSheet.Range("3:6").EntireRow.Hidden = True
        [A2].Value = "+"
    Else
    If Target.Cells(1).Address = "$B$2" Then
        ActiveSheet.Range("3:6").EntireRow.Hidden = False
        [A2].Value = "-"
    End If
    End If
End Sub

Sub ЗаменаСимвола()
    Range(ThisWorkbook.Sheets("Лист2").[A1], ThisWorkbook.Sheets("Лист2").[A100].End(xlUp)).Replace "1", "20"
End Sub

Sub ЗаменаСимвола()
    [A:A].Replace "1", "2"
End Sub

Sub ЗаменаСимвола()
    ThisWorkbook.Sheets("Лист2"). Range([A1], [A100].End(xlUp)).Replace "1", "2"
End Sub

ThisWorkbook.Sheets("ИмяЛиста").[A1] = ActiveSheet.Name

Private Sub Гиперссылка()
    ActiveSheet.Hyperlinks.Add Anchor:=ThisWorkbook.Sheets("ИмяЛиста").Range("A1"), _
    Address:="", _
    SubAddress:="'" & ThisWorkbook.Sheets("ИмяЛиста").Range("A1").Value & "'!A1", _
    TextToDisplay:=ThisWorkbook.Sheets("ИмяЛиста").Range("A1").Value

    ThisWorkbook.Sheets("ИмяЛиста").Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Private Sub Переход()
    On Error Resume Next
    If MsgBox("Вернуться на место где остановились?!" & vbLf & _
    "Да - переходим на лист " & [A1] & vbLf & _
    "Нет - переходим к оглавлению", vbYesNo) = 6 Then
        Call Гиперссылка
    Else
        Sheets("Оглавление").Select
    End If
End Sub 

Sub ЗаголовкиСкрыть()
Dim wsSh As Worksheet
    For Each wsSh In ThisWorkbook.Sheets
             wsSh.Activate: ActiveWindow.DisplayHeadings = False
    Next wsSh
End Sub

Sub www()
Dim wsSh As Worksheet
For Each wsSh In ThisWorkbook.Sheets
         wsSh.DisplayHeadings = False
Next wsSh
End Sub

Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Dim LastRow As Integer
        LastRow = ThisWorkbook.Sheets(sLog).Range("A10000").End(xlUp).Row       'ищем последнюю занятую строчку в логах
        If LastRow > 1 Then ThisWorkbook.Sheets(sLog).Cells(LastRow, 3) = Now   'заносим дату-время выхода из файла

Sh.Move After:=Sheets(Sheets.Count)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "Титул" Then
       Sh.Move After:=Sheets(Sheets.Count)

    Application.DisplayAlerts = False
      ThisWorkbook.Save
    Application.DisplayAlerts = True

    End If
End Sub

    Dim v As Range
    Set v = ActiveSheet.Range("A5:I5")

Sub Color ()
    v.Interior.ColorIndex = 19
End Sub