Sub Run()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
iStyle = "20% - Акцент1"

    Dim values As String
    values = ""
    Dim sh As Worksheet, TRange As Range, Cell As Range
    Dim integers As String
    integers = ""
    Dim formula As String
    formula = ""
  
    For i =  1  To (Worksheets.Count -  1 )
        Set sh = Worksheets(i)
        shname = sh.Name
        rownum = Row_Get(sh)
        colnum = Col_Get(sh)
        If (rownum >=  2  And colnum >=  2 ) Then
        Set TRange = Range(sh.Cells( 2 ,  2 ), sh.Cells(rownum, colnum))
        Else
        If (rownum =  1  Or colnum =  1 ) Then
        Set TRange = Range(sh.Cells( 2 ,  2 ), sh.Cells( 2 ,  2 ))
        End If
        End If
        
        For Each Cell In TRange
        coladd0 = Cell.Address
            pos0 = InStr( 2 , coladd0, "$")
            col0 = Mid(coladd0,  2 , pos0 -  2 )
            row0 = Trim(Str(Cell.Row))
        
        If (Len(Trim(Cell.Text))) Then
        
            values = values + shname + "|" + col0 + "|" + row0 + "|" + Cell.Text + "`"
            End If
        
        If (Cell.Style = IStyle) Then
        integers = integers + shname + "|" + col0 + "|" + row0 + "`"
        End If

        Set comm = Cell.Comment
        If (Not comm Is Nothing) Then
        formula = formula + shname + "|" + col0 + "|" + row0 + "|" + comm.Text + "`"
        End If
        Next Cell
    Next i

'это основные действия, далее полученные данные объединяются в строку. Код до этого места выполнялся около 150 сек       
...
Application.Calculation = xlCalculationAutomatic
End sub

Public Function Row_Get(ByVal sh As Object) As Integer
' Определение последней занятой строки на листе
addr = sh.UsedRange.Address
Row_Get = sh.UsedRange.Row + sh.UsedRange.Rows.Count -  1 
End Function

Public Function Col_Get(ByVal sh As Object) As Integer
' Определение последней занятой колонки на листе
addr = sh.UsedRange.Address
Col_Get = sh.UsedRange.Column + sh.UsedRange.Columns.Count -  1 
End Function