Sub ki184()
cend = 1500 'デバッグ用数値
'準備：ダイアログへ入力
With UserForm1
    .Caption = "マクロ実行中：しばらくお待ち下さい"
    .TextBox2.BackColor = "&h006400"
    .TextBox2.Width = 0
    .TextBox3.Width = 0
    tsiz = .TextBox1.Width
End With
'
Application.ScreenUpdating = False
UserForm1.Show vbModeless
For i = 1 To cend
    j = i / cend * 100
        With UserForm1
           .Label1.Caption = Int(j) & "%"
           .TextBox2.Width = tsiz * j / 100
           .TextBox3.SetFocus
        End With
'     ----------------------------------------------------
      For j = 1 To 10000
        'デバッグ用タイミング（実際はここに実行マクロを入れる）
      Next
     '-----------------------------------------------------
     DoEvents
Next
     Unload UserForm1

End Sub