> ★『For ObjSheet In xlBook.Worksheets』にしてRunしました。そうではなく、こういうことで。 For I = 1 To xlBook.Worksheets.Count Set ObjSheet = xlBook.Worksheets(I) : : Next