i have a userform that is a progress indicator, how to cancel this if needed

[dmcgov]

my new routine works great. now i would like to add a cancel button to the form. I did that but it's not canceling.

how to fix this routine?

Private Sub CancelExtraction_Click()
    Unload Me
End Sub

Private Sub userform_Activate()
Call grand10
End Sub

other supporting code

Sub updateprogress(pct)
With UserForm1
    .FrameProgress.Caption = Format(pct, "0.000%")
    .LabelProgress.Width = pct * (.FrameProgress.Width - 10)
    .Repaint
    End With
End Sub

Sub showuserform()
With UserForm1
    .LabelProgress.Width = 0
    .Show
    End With
End Sub

Sub RunGrand()
MsgBox ("this should take 3-4 seconds per fixture")
Application.Run "showuserform"
End Sub