質問: TextBox1.Value End Sub
回答: 単純に考えると Private Sub CommandButton1_Click() Sheets("結果").Range("a2") = TextBox1.Value Unload Me Call Macro1 'Macro1 は標準モジュールに書いたマクロ名 End Sub ...な感じですが >途切れ途切れでうまく行きませんでした。 これがちょっと気になりますね。 上記でうまくいかない場合は、実際に試したコードを掲載したほうが良いでしょう。