Guru do Excel e Power BI

Private Sub Workbook_Open()
    Dim shpForma        As Shape
    Dim lngUltLin       As Long
    Dim lngCont         As Long

    With Planilha1
        If VBA.Weekday(VBA.Now()) = 2 Then
            lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
            
            'Loop pelas linhas
            For lngCont = 8 To lngUltLin
                'Loop pelos controles
                For Each shpForma In Planilha1.Shapes
                    If shpForma.TopLeftCell.Row = lngCont Then
                        .Cells(lngCont, 11).Value2 = False
                    End If
                Next shpForma
            Next lngCont
        End If
    End With
End Sub