Run-Time erorr 1004 Belirlenen koleksiyona olan dizin sınırlar dişinda.

Sub Obj_Sil_Ekle()
Dim tw As ThisWorkbook
Dim ws1 As Worksheet
dim r

Set tw = ThisWorkbook
Set ws1 = tw.Worksheets(tw.ActiveSheet.Name)

For r = 1 To ws1.OLEObjects.Count ' hata alınan kod satırı makroları ayrı sub() içine koydugumuzda hata almıyor nedeni nedir ?
ws1.OLEObjects(r).Delete
Next r

If ws1.OLEObjects.Count = 0 Then
Dim a , i
  With ws1.OLEObjects
        For i = 1 To 22
        Set lbl = .Add(ClassType:="Forms.TextBox.1")
        lbl.Top = lbl.Top * a
        Debug.Print lbl.Name
        Next i
    End With
   
End If

End Sub

For r = 1 To ws1.OLEObjects.Count

For r = ws1.OLEObjects.Count To 1 Step -1