error occurs at this point Sheet1.Cells(1, 134).Resize(, .Count) = .items sq = .keys
Sheet1.Cells(1, 134).Resize(, .Count) = .items sq = .keys
Forum Rules