Sub ReplaceText()
    Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Replacement.Text = ""
        Do While .Execute(FindText:="\[*\]", MatchWildcards:=True)
            .Execute FindText:="[[\] ]", MatchWildcards:=True, _
                ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindStop
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

 Sub procedure()
If range("A1").Value=1 Then
MsgBox("значение равно единице")
else
Exit Sub
End If
End Sub

Sub primer1()
Dim myPhrase As Variant, myCell As Range
myPhrase = myPhrase = Range("A7").Value
myPhrase = CDate(myPhrase)
Set myCell = Range("F8:F17").Find(myPhrase)

If Not myCell Is Nothing Then

MsgBox "Адрес: " & myCell.Address
Else
MsgBox "фраза не найдена"
End If
End Sub

Sub Number()

Workbooks.Open Filename:="C:\Users\1\Desktop\вставляем_номер.xlsx"
Workbooks("вставляем_номер.xlsx").Worksheets("Лист1").Cells(1, 26).Copy

Dim bookconst As Workbook
Dim oFile As Object
Dim oFolder As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = FSO.GetFolder("C:\Users\1\Desktop\вставить")
    For Each oFile In oFolder.Files
        ControlFile = ActiveWorkbook.Open
        ActiveWorkbook.Worksheets("Лист1").Cells("A26").Select
        ActiveSheet.Paste
        bookconst.Save
        bookconst.Close
    Next
End Sub

 =РЯД("Верхний предел";'стандарт'!$A$24:$A$912;'стандарт'!$O$24:$O$912;6)

Sub console_geo()
    FilePath = Sheets("sheet1").Cells(1, 1)
    Workbooks.Open Filename:=FilePath
End Sub

Sub console_geo()
FilePath = Sheets("sheet1").Cells(1, 1)
If Application.Windows().WindowState = xlMinimized Then Application.Windows().WindowState := xlMaximized
Else
Workbooks.Open Filename:=FilePath
End Sub

Sub reestr()
Function GetComment(rCell As Range) As String
GetComment = rCell.Comment.Text
End Function