MsgBox "T = " & Format(Timer - T0, "0.0")

Cells(1, 2) = Format(Timer - T0, "0.0")

Sub COPY1()
 Sheets("Лист4").Range("G2").Select
    Selection.Copy
    Worksheets("Лист2").Range("A2").PasteSpecial Paste:=xlPasteValues
End Sub

=ГИПЕРССЫЛКА() 

=ГИПЕРССЫЛКА(ПСТР(ЯЧЕЙКА("имяфайла");1;ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1)&а.doc)) 

=ПСТР(ЯЧЕЙКА("имяфайла");1;ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1)&а.doc)

=ПСТР(ЯЧЕЙКА("имяфайла");1;ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1)&

Sub НазначениеОдногоМакросаВсемФигурам()
    Dim Sh As Worksheet, sha As Shape
    For Each Sh In ActiveWorkbook.Worksheets    ' перебираем все листы в активной книге
        For Each sha In Sh.Shapes    ' перебираем все фигуры на очередном листе
            ' назначаем макрос только тем фигурам, которым ещё не назначены макросы
            If sha.OnAction = "" Then sha.OnAction = "МакросДляФигуры"
        Next sha
    Next Sh
End Sub

Sub МакросДляФигуры()
On Error Resume Next
' получаем ссылку на фигуру, с которой был вызван этот макрос
Dim sha As Shape: Set sha = ActiveSheet.Shapes(Application.Caller)
 
' заносим в диапазон ячеек a2:f2 координаты и размеры выделенной фигуры
Range("a2:f2").Value = Array(sha.Left, sha.Top, _
sha.Left + sha.Width, sha.Top + sha.Height, _
sha.Width, sha.Height)
 
sha.Select ' выделяем фигуру, которая запустила макрос
End Sub

Private Sub CommandButton1_Click()
    fa = True
    Pi = Atn(1) * 4
    If CommandButton1.Caption = "Пуск" Then
        For i = 0 To 1060 Step 0.1
            Call Smesch(i, Pi, L, H)
            DoEvents
            If Not fa Then Exit For
        Next i
        CommandButton1.Caption = "Старт"
      Else
        Call Smesch(0, Pi, L, H)
        CommandButton1.Caption = "Пуск"
    End If
End Sub
Sub Smesch(i, Pi, L, H)
    L1 = L - 85 + i * 1.4
    L2 = L1 + 85 - 80 * Sin(i / 180 * Pi)
    On Error Resume Next
    ActiveSheet.Shapes("Group 7").Rotation = i
    If Err.Number = -2147024809 Then
        Err.Clear
        Exit Sub
    End If
    ActiveSheet.Shapes("Group 7").Left = L1
End Sub