2018年5月17日シートSelectedSheets指定ブックの指定したウィンドウで選択されている全てのシートを参照するにはSelectedSheetsプロパティを利用します。選択中の全てのシートに対して一括で削除などを行う場合に利用できるため、シートを1つずつループして処理することが不要になる利点があります。親オブジェクトとしてWindowオブジェクトを指定します。親オブジェクトとしてWorkbookオブジェクトは指定できません。メソッドSelectedSheetsには以下のメソッドが用意されています。追加したワークシートのWorksheetオブジェクトを返す。指定したワークシートの左に追加する。Afterとの同時指定は不可。指定したワークシートの右に追加する。Beforeとの同時指定は不可。追加するワークシート数を指定。追加するワークシートの種類をXlSheetType列挙型で指定。BeforeとAfterの両方を省略した場合はアクティブシートの左に追加する。指定したワークシートの左にコピーする。指定したワークシートの右にコピーする。引数未設定時は新規ブックにコピーする。指定したワークシートの左に移動する。指定したワークシートの右に移動する。引数未設定時は新規ブックに移動する。Select([Replace])プロパティSelectedSheetsには以下のプロパティが用意されています。垂直改ページを表すVPageBreaksコレクションを返すサンプルコード選択されているシートを全て削除するサンプルです。Subコード説明2行目と6行目でApplication.DisplayAlertsを行っていますが、これは警告メッセージを出さないようにするための仕組みです。Application.DisplayAlertsが無ければ以下のダイアログが表示され、削除するかどうかがユーザー操作に切り替わります。ブックの全てのシートを選択している場合は以下のエラーになります。Excel作業をVBAで効率化シェアお問合わせTOPへ。