うーん、長い。
なるほどSheets.Countを使えば最終シートがわかるのかと試してみましたが、どうも最終でないものを拾ってしまったみたいでした。あと、ちゃんと作法通りに記述すればもっと速くなったりするかと思いましたがこれもよくわかりません。そっち方面でアドバイスがあればよろしくお願いします。