need to add something to macro delete checkboxes to prevent overlap

[asturgill]

Can someone help me add to the macro below to delete checkboxes with the row that is being deleted? The row is deleted per the macro, but the ticked checkbox transfers to new sheet.

Sub EndofCycle()
ActiveSheet.Copy After:=ActiveSheet
Columns("AS").Select
Selection.AutoFilter
ActiveSheet.Range("$AS$1:$AS$369").AutoFilter Field:=1, Criteria1:="TRUE"
Cells.Select
Selection.Delete Shift:=x1Up
Range("A1").Select
End Sub

 

[Worf]

Try this:

Sub EndofCycle()
Dim a As Worksheet, i%
ActiveSheet.Copy After:=ActiveSheet
Set a = ActiveSheet
For i = a.Shapes.Count To 1 Step -1
    If InStr(1, a.Shapes(i).Name, "CheckBox") > 0 And a.Range("as" & a.Shapes(i).TopLeftCell.Row).Value _
    = "TRUE" Then a.Shapes(i).Delete
Next
Columns("AS").AutoFilter
a.Range("$AS$1:$AS$369").AutoFilter Field:=1, Criteria1:="TRUE"
Cells.Delete Shift:=xlUp
Range("A1").Select
MsgBox "Sheet has now " & a.Shapes.Count & " shapes", vbInformation
End Sub

 

[asturgill]

Will try today at work. Will let you know if this worked this evening. Thank you.