Veja neste site se te ajuda.

https://www.extendoffice.com/pt/documents/excel/3697-excel-hide-checkbox-with-row.html

teleguiado,

Utilizei a macro informada e deu certo para ocultar os controles de formulário. No entanto só oculta quando clico na linha. Há como adaptar a macro para que ela oculte automaticamente quando eu clicar no botão da macro?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xChkBox As CheckBox
    Dim xCell As Range
    Dim xHide As Boolean
    If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
        xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
        Target.EntireRow.Hidden = xHide
        For Each xChkBox In ActiveSheet.CheckBoxes
            Set xCell = xChkBox.TopLeftCell
            If Not Intersect(xCell, Target) Is Nothing Then
                xChkBox.Visible = Not xHide
            End If
        Next
    End If
End Sub

Obrigado!

Tente assim:

Sub OCULTAJANSED()
    Dim xChkBox As CheckBox
    Application.ScreenUpdating = False
    For Each myCell In Sheets("JANSED").Range("D2:D4")
        If myCell = "" Then
            myCell.EntireRow.Hidden = True
            
        End If
        
    Next myCell
    For Each xChkBox In ActiveSheet.CheckBoxes
        xChkBox.Visible = False
                
    Next
    Application.ScreenUpdating = True
End Sub
Sub REEXIBEEJANSED()
    Application.ScreenUpdating = False
    For Each myCell In Sheets("JANSED").Range("D2:D4")
        If myCell = "" Then
            myCell.EntireRow.Hidden = False
        End If
    Next myCell
    For Each xChkBox In ActiveSheet.CheckBoxes
        xChkBox.Visible = True
    Next

    Application.ScreenUpdating = True
End Sub

teleguiado,

Funcionou perfeitamente.

Muito obrigado!