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 ЗаменаСимвола()
    [A:A].Replace "1", "2"
End Sub

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

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

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

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

Dim iList As Variant, i As Integer
iList = Array("Задача 1", "Задача 2", "Задача 3")
For i = 0 To UBound(iList)
...
Next

...
Range("Диапазон").FormatConditions.Add Type:=xlExpression, Formula1:="=J4<>AE4"
...

Formula1:="=J4<>AE4"

selection=evaluate(selection.address & "&""*""")

Sub Макрос ()
Sheets("Лист 1").Select

    Range("AZ7").Select
    SendKeys "{F2}+{Enter}"

Sheets("Лист 2").Select
End Sub 

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value 

Sub Создать()
    Dim A(), Item, Sh1 As Worksheet, Sh2 As Worksheet
    
    'Определение диапазона копируемых значений в новый лист
    With Sheets("Настройка")
     A = .Range("A3:A6" & .Cells(.Rows.Count, "A").End(xlUp).row).Value
    End With
    
    'Шаблон копируемого листа
    Set Sh1 = Sheets("Ведомость")
    Set Sh2 = Sh1
    Application.ScreenUpdating = False
    For Each Item In A
     Item = Trim(CStr(Item))
     If Item <> "" Then
      Set Sh2 = Worksheets.Add(, Sh2)
      Sh2.Name = Item
      Sh1.Cells.Copy Sh2.Cells
      Sh2.Range("J3").Value = Item
     End If
    Next
    
    Application.ScreenUpdating = True
End Sub