@leonzinsheets

Inclua no inicio do With o .select e tambem seja incluido  Selection.Characters.Text = "" dentro do With

Se entendi certo a sua duvida acho que é isso.

      With ChkBx
       .Select
        'valor padrão:
        .Value = xlOff 'pode ser Verdadeiro ou Falso
        'célula vinculada
        .LinkedCell = rngCel.MergeArea.Cells.Address
        'Texto de substituição
        '.Characters.Text = "TITI"
        'texto
        '.Text = "Toto" ' ou : .Caption = "Toto"
        'bordure :
        Selection.Characters.Text = ""
        With .Border
          'Estilo de linha
          '.LineStyle = xlLineStyleNone 'ou xlContinuous 'ou xlDashDot ou xlDashDotDot ou xlDot
          'cor
          '.ColorIndex = 3  '3 = vermelho
          'espessura da linha
          '.Weight = 4
        Application.Caption = ""
        
        End With
        'propriedades também acessíveis .Locked, .Name, .Enabled etc...
      End With

Cara, funcionou perfeitamente, estava custando resolver isso a dias.

Muito Obrigado.

Quanto a parte do Filtro, sabe me dizer se há algo que eu possa fazer pra ocultar as checkbox de acordo com o a linha que estiver oculta?

Deixei um exemplo ai, do que acontece quando eu realizo o filtro, continua aparecendo todas as checkboxs uma em cima da outra, e gostaria que elas se ocultassem junto com as linhas.

Pessoal, consegui encontrar essa macro que oculta as caixas de seleção (Checkbox) juntamente com as linhas, porém precisava linkar ela diretamente com um filtro do excel que está na planilha que anexei.

Resumindo, preciso juntar as duas macros que seguem abaixo. pra que ela filtre automaticamente e ja oculte as checkbox que estão visiveis.

Private Sub OP_Change()
  If OP.Text <> "" Then
    Selection.AutoFilter Field:=2, Criteria1:="=" & OP.Text
  Else
    Selection.AutoFilter Field:=2
  End If
 
End Sub

Ocultar checkbox

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

@leonzinsheets

Fiz de um jeito diferente.

Veja se resolve ou se vc consegue adaptar de uma forma melhor.

No módulo 5 tem o código original que encontrei para adaptar o seu.

Coloquei comentários para explicar o condigo.

OBS: Vi que para ocultar as checkbox  juntamente com a linha que é oculta a propriedade da checkbox tem que ser xlMoveAndSize.

Cara, funcionou perfeitamente

Parabéns, você manda muito e muito obrigado pela ajuda.

Como faço pra marcar como resolvido? 

No rodapé (lado direito) de seu primeiro post neste tópico, tique o botão esmaecido "Resolvido".