ホントですね。Dim Sheet As Excel.WorksheetFor Each Sheet In xlBook.Worksheets Debug.Print Sheet.NameNextの箇所を使えばいいみたいですね。ありがとうございました。