Можно ли как-то ускорить выполнение этого кода (обработка примечаний)?

[motorway]

Ниже показан код, который для числа ячеек с примечаниями на листе порядка 300 уже выполняется около 10 секунд на хорошем компьютере. Можно ли как-то ускорить его?

Sub Кнопка7_Щелчок()

 For i = 1 To (Worksheets.Count - 1)
        Set sh = Worksheets(i)
        Set TRange = Range(sh.Cells(2, 2), sh.Cells.SpecialCells(xlCellTypeLastCell))

        For Each cell In TRange
          
    If (Not cell.Comment Is Nothing) Then
    Text = cell.Comment.Text
    Text = Replace(Text, "[", """[")
    Text = Replace(Text, "]", "]""")
    Text = Replace(Text, ";", ",")
    Text = Replace(Text, "->", "&""->""&")
    If (Mid(Text, 1, 1) = "=") Then Text = Mid(Text, 2, Len(Text) - 1)
    
    If ((Mid(Text, 1, 1) = "<" Or Mid(Text, 1, 1) = ">") And Mid(Text, 2, 1) <> "=") Then
    Text = """" + Mid(Text, 1, 1) + """" + "&" + Mid(Text, 2, Len(Text) - 1)
    End If

    If (Mid(Text, 1, 2) = "<=" Or Mid(Text, 1, 2) = ">=") Then
    Text = """" + Mid(Text, 1, 2) + """" + "&" + Mid(Text, 3, Len(Text) - 2)
    End If

    Text = "A(" + Text + ")"

    cell.formula = "=" & Text
    
    End If

	Next cell
        
    Next i
 
            
End Sub

Тут просто проверяется, есть ли в ячейках примечание, если есть, то в формулу добавляется внутрь функции А() его текст, иногда с заменами символов.

[The_Prist]

Я бы посоветовал хотя бы не весь диапзаон проверять на наличие примечаний, а сразу определять диапазон только с примечаниями

Dim rRange As Range
On Error Resume Next
Set rRange = sh.Cells.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not rRange Is Nothing Then
' Выполнение операций над ячейками с примечаниями
Else
msgbox "На листе нет ячеек с примечаниями!"
End If

Тогда вот это условие можно убрать

If (Not cell.Comment Is Nothing) Then

Ну соответственно и кол-во ячеек для обработки сократится, ведь обрабатываться будут только те, в которых примечания есть без каких-либо проверок на наличие примечаний.

Ну и в начале кода поставьте

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

а в конце

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

[motorway]

Что-то все равно очень долго... На обработку 465 примечаний больше минуты на 3 ГГц, 2 ГБ памяти. При том, что в реальном приложении их может быть больше