Уважаемые форумчане подскажите , пожалуйста . Здесь на форуме и на других , много искал , но об этом конкретной информации нет . Вот макросы СтатусБара :  
 
 
 
Sub test1()  
   For i = 1 To 10000  
       p = i \ 100: s = "": For j = 10102 To 10102 + p \ 10: s = s & ChrW(j): Next  
       Application.StatusBar = "Выполнено: " & p & "% " & s: DoEvents: DoEvents  
   Next  
   Application.StatusBar = False  
End Sub  
 
 
Sub test2()  
   For i = 1 To 10000  
       p = i \ 100: s = String(p \ 10, ChrW(10152)) & String(10 - p \ 10, ChrW(8700))  
       Application.StatusBar = "Выполнено: " & p & "% " & s: DoEvents  
   Next  
   Application.StatusBar = False  
End Sub  
 
 
Вопрос :  Как один из них , можно вложить в мой макрос (мне нужно все листы прогнать без остановки).  
Вот мой макрос:  
 
                           
Sub Макрос4()  
Dim i As Variant  
Application.ScreenUpdating = True  
For i = 1 To 1500  
Worksheets(i).Select  
Sheets.Add After:=Sheets(Sheets.Count)  
Dim c As Range  
For Each c In Range("A1:G900,J1:P900,S1:Y900").Cells  
  Randomize  
c.Value = Int((2 * Rnd) + 1)  
Next c  
 
(здесь ещё код , но без цикла)  
 
Next i  
Application.ScreenUpdating = False  
End Sub