Excel Checkboxes move on each spreadsheet

I was having a problem with the "bug" that moves checkboxes around

to solve this I wrote a quick little vba code to keep them in line

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheet3.Shapes("Group 5")
    .Top = Range("B6").Top + Range("B6").Height / 2 - .Height / 2
    .Left = Range("B6").Left + Range("B6").Left / 2
End With

End Sub

This works fine but if below the Group 5 I add a shape from sheet 4, They will move when I don't want them to.

So if I save on sheet 3, all of sheet 3's will move to the correct location (Which is good). Then if I click over to sheet 4, they are shifted a tad bit and visa versa. Does anyone know why this would be happening?

Thanks.