End With が必要です
With ブロックを終了する必要があります。 このエラーの原因と解決策は次のとおりです。
- With ブロックを適切に終了していません。 ブロックの末尾に End With ステートメントを挿入してください。
詳細については、該当する項目を選択し、F1 キー (Windows の場合) または HELP (Macintosh の場合) を押してください。
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。