Makro läßt sich nicht stoppen

Sub ShowDialog()
Load ProgressDlg
ProgressDlg.Show
End Sub

Sub Main()
Dim i As Long, tot As Long
tot = 100
ProgressDlg.Caption = "Prosessing data, please wait..."
For i = 1 To tot
Range("HD2:HD327").Copy
Range("HN2") = Range("HN2") + 1
Cells(2, 235 + i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If i Mod 1 = 0 Then ProgressBar i / tot
' do something
Next i
Unload ProgressDlg
End Sub

Sub ProgressBar(PctDone As Single)
With ProgressDlg
.lblDone.Width = PctDone * (.lblRemain.Width - 2)
.lblPct.Caption = Format(PctDone, "0%")
End With
'The DoEvents statement is responsible for the form updating
DoEvents
End Sub

Danke,
Born