Sub ПДФ()
Dim iNm$
Application.ScreenUpdating = False
On Error Resume Next
With Worksheets("Протокол_неразр_28")
  iNm = .Range("BA5").Value
  MkDir "C:\Users\I_YES\Desktop\" & iNm
  .ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\Users\I_YES\Desktop\" & iNm & "\" & iNm & ".pdf", _
      OpenAfterPublish:=False
End With
Application.ScreenUpdating = True
End Sub

Sub ArrowClick()
Const iPerc = 0.005
Dim iVar As Double
With Worksheets("Лист1")
  iVar = .Range("B1").Value * iPerc
  Select Case Application.Caller
    Case Is = "ArrowDown"
      .Range("B2").Value = .Range("B2").Value - iVar
    Case Is = "ArrowUp"
      .Range("B2").Value = .Range("B2").Value + iVar
  End Select
End With
End Sub

Sub ArrowClick()
Const iPerc = 0.005
With Worksheets("Лист1")
  Select Case Application.Caller
    Case Is = "ArrowDown"
      .Range("B2").Value = .Range("B1").Value - .Range("B1").Value * iPerc
    Case Is = "ArrowUp"
      .Range("B2").Value = .Range("B1").Value + .Range("B1").Value * iPerc
  End Select
End With
End Sub

Sub ArrowClick()
Const iPerc = 0.005
With Worksheets("Лист1").Range("B2")
  Select Case Application.Caller
    Case Is = "ArrowDown"
      .Value = .Value - .Value * iPerc
    Case Is = "ArrowUp"
      .Value = .Value + .Value * iPerc
  End Select
End With
End Sub