.Value = .FormulaLocal

#If VBA7 Then
Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
#Else
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
#End If

Sub OpenBrowser()
    Dim lr As Long
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Rows(i).Hidden = False Then
            Shell "cmd /c start https://yandex.ru/search/?text=" & Cells(i, [Таблица1].ListObject.ListColumns("Name").Range.Column).Value
        End If
    Next i
    Application.Wait Now + 3 / 24 / 3600   ' ждем 3 секунды
    SetForegroundWindow Application.hwnd   ' делаем Excel активным окном
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        With Application.FileDialog(msoFileDialogSaveAs)
            .InitialFileName = Join(Array("ПИ-" & [B2] & "_" & Format([B3], "YYYY_MM_DD") & "_" & Replace([B4], "/", "~")), "") & "_" & Replace([B5], "/", "~") & "_" & Replace([B6], "/", "~")
            .FilterIndex = 2  ' тип: Книга Excel c поддержкой макросов
            If .Show = -1 Then
                Application.EnableEvents = False
                On Error Resume Next
                .Execute
                On Error GoTo 0
                Application.EnableEvents = True
            End If
        End With
        Cancel = True
    End If
End Sub

Cells.Replace ChrW(198), ChrW(216)

' Возвращает объект FileSysTemObject
Function GetFSO() As Object
  Static fso As Object
  If fso Is Nothing Then
    Set fso = CreateObject("Scripting.FileSystemObject")
  End If
  Set GetFSO = fso
End Function

Sub FileCopy2(ByVal Source, ByVal Destination)
  GetFSO.CopyFile Source, Destination
End Sub

Sub test()
  FileCopy2 "C:\Temp\пример.xlsm", "C:\Temp\Пример2.xlsm"
End Sub

Sub OnePageWide()
  With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
  End With
End Sub