Run-time error '-2147352567 (80020009)' The index into the specified collection is out of bounds
问题 I am running periodically into an error: Run-time error '-2147352567 (80020009)' The index into the specified collection is out of bounds. This error is thrown on the line For Each cb In wks.Shapes Here is the full code: Sub SelectAll(wks As Worksheet) Application.ScreenUpdating = False Dim cb As Shape 'Loop through Checkboxes For Each cb In wks.Shapes If cb.Type = msoFormControl Then If cb.FormControlType = xlCheckBox Then cb.OLEFormat.Object.Value = xlOn With cb.OLEFormat.Object Application