[Iska]

Вставьте в модуль рабочей книги Excel:

Код:

Option Explicit

Sub SomeSub()
    Dim i As Long
    
    Application.Cursor = xlWait
    
    For i = 1 To 1000
        ThisWorkbook.Sheets.Item(1).Cells(i, 1) = i
    Next i
    
    Application.Cursor = xlDefault
End Sub

или документа Word:

Код:

Option Explicit

Sub SomeSub()
    Dim i As Long
    
    System.Cursor = wdCursorWait
    
    For i = 1 To 1000
        With ThisDocument.Paragraphs.Add
            .Range.InsertBefore CStr(i)
        End With
    Next i
    
    System.Cursor = wdCursorNormal
End Sub

[ejjjikejjjik]

Спасибо Вам большое!!!