>>117
Privateを取っ払ってただのSubにすれば、
UserForm1.ボタン_Clickで実行できる。