progres bar kullanımı

[bitmez13]

Sub kapat()
UserForm1.Show
Dim i As Integer

For i = 1 To 1000
ProgressBar1.Value = i
Next i
ActiveWorkbook.Save
Sheets(1).[a1] = "1"
ThisWorkbook.Saved = True
Application.Visible = False

End Sub

kod ile kapatırken userform1 açılacak progress bar çalışacak formu kaydedip çıkacak ama hata alıyorum ayrıca formdaki progres bar makrosuda

Private Sub UserForm_Initialize()
ProgressBar1.Max = 1000
ProgressBar1.Min = 1
End Sub
yardım edersenis sevinirim

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

"Userform1" in kod sayfasına

Private Sub UserForm_Activate()
ProgressBar1.Min = 1
ProgressBar1.Max = 1000
Dim i As Integer
For i = 1 To 1000
DoEvents
ProgressBar1 = i
Next
Sheets(1).[a1] = "1"
Application.Quit
ThisWorkbook.Close savechanges:=True
End Sub

"Modül" e

Sub kapat()
UserForm1.Show
End Sub