Private Sub Workbook_Open()
     If  Environ("USERNAME") <> "admin" Then (открыть только для чтения)
End Sub

Sub main()
    Call aaa
    Call bbb
End Sub

Sub aaa()
    ReDim arr(1 To 3, 1 To 3)
End Sub

Sub bbb()
    x = arr(1, 1)
End Sub

Sub sort()

        'Сортировка по убыванию столбца J
        iLastrowI = Cells(Rows.Count, 9).End(xlUp).Row
        ActiveWorkbook.Worksheets(1).sort.SortFields.Add Key:=Range("J3"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 'Order:=xlAscending - по возрастанию
    
    With ActiveWorkbook.Worksheets(1).sort
        .SetRange Range("I3:M" & iLastrowI)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Sub aaa()
    ' найти в bbb() текст a = 5 и заменить на a = 10
End Sub

Sub bbb()
    a = 5 ' искомый текст, который хочу заменить
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    MsgBox "B2 изменилось"
End Sub

Sub vstavka()

    Sheets("Лист1").Shapes("kvadrat").Copy
    
    Sheets("Печать").Visible = True
    
    Sheets("Печать").Select
    Range("B3").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
    
    Sheets("Печать").Visible = False
    
End Sub

Columns("A:K").Select

Sub Макрос3()
    If Range("A2") = "Да" Then
        Sheets("Лист1").Shapes("Рисунок 1").Copy
        Sheets("Лист2").Paste Destination:=Range("D10") 'Почему вставляется на первый лист?
    Else
        Sheets("Лист2").Shapes("Рисунок 1").Delete
    End If
End Sub

\d+[,]?\d?[xх]\d+[,]?\d+

Sub Макрос2()
    Sheets("Лист1").Select
    ActiveSheet.Shapes.Range(Array("Группа 1")).Select
    Selection.Copy
    Sheets("Лист2").Select
    Sheets("Лист2").Range("d10").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 183
    Selection.ShapeRange.IncrementTop 96
    Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.5, msoFalse, _
        msoScaleFromBottomRight
End Sub

="Выписано " & СЕГОДНЯ()

If "флажок установлен" Then ...