idShura

Sub SelectObjectByName()
    Dim s As Shape
    For Each s In ActiveDocument.Shapes
        If s.Name = "Фигура" Then
            s.Selected = True
        End If
    Next s
End Sub

Пример файла

Добавьте задержку в цикл Светлофор в excel, как сделать задержку?
Плавность движения можно регулировать задержкой и шагом изменения координат

Application.Wait Now + #0:00:05#

Можно формулой

=СЦЕПИТЬ(ЛЕВСИМВ(A1; ПОИСК(" ";A1;1)-1);" ";ЛЕВСИМВ(ПСТР(A1; ПОИСК(" ";A1) + 1; ПОИСК(" ";A1;ПОИСК(" ";A1)+1) - ПОИСК(" ";A1) - 1);1);".";ЛЕВСИМВ(ПРАВСИМВ(A1;ДЛСТР(A1) - ПОИСК(" "; A1; ПОИСК(" "; A1) + 1));1);".")

Но лучше написать вою формулу на vba, могу позже сделать как время будет.

Попробуй так ComboBox1.ListIndex = 3. Индекс первого элемента 0, поэтому если нужно выбрать четвертый элемент в списке, нужно указывать 3.

Писать готовое решение не хочу, поэтому приведу пример.
Значение из Inputbox передайте в переменную Text и поправьте в цикле ячейки в которую нужно выводить значения.

Text = "абвгд"
    
    For i = 1 To Len(Text)
        Cells(1, i) = Mid(Text, i, 1)
    Next

Sub MM1()
For c = 1 To 8
    For r = 1 To 8
        Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
    Next r
    Cells(1, 1).Offset(0, c - 1).ColumnWidth = 2.5
Next c
End Sub

Добавь пробелы и все заработает

Public Function fun1(x As Double) As Double
    fun1 = (x * x - 5 * 2 ^ 0.5) / (2 * x ^ 3 + 1)
End Function

Например вот так можно:
Range("A1:A10000").AutoFilter 1, "<>", , , False

Метод Range.AutoFilter

Попробуй вот так:

For Each s In ActivePage.Layers("circuits").Shapes.All
      s.Outline.SetNoOutline
Next s

Вот так попробуй

For i = 1 To 5 'Отправит сочетание Ctrl+j 5 раз
     Application.Wait (Now() + TimeValue("00:01:00")) 'Пауза 1 минута
     Application.SendKeys("^j")
Next i

Не до конца понял вопрос. Диапазон ячеек которые обрабатываются указан в строке Set iRange = ActiveSheet.UsedRange