サンプルでは、マクロを実行しているブックの、特定のシートを新規のブックにコピーしています。まず、新規ブックを追加して、特定のシートを指定するために、インプットボックスを用意します。 インプットボックスは、シート名ではなく、インデックス番号の数値で指定してもらうために、インデックス番号とシート名をメッセージに表示します。 数値以外の指定がされると、「数値が正しくありません」というメッセージが表示され、キャンセルもしくはインデックス番号以外の数値が入力された場合は、処理を行いません。 ●サンプル● Sub Sample() Dim myWorkBook As String Dim newWorkBook As String Dim mySeet As Worksheet Dim myMsg As String Dim myTitle As String Dim myValue As Integ