Olá Prezados,

Acompanho esse Fórum faz um tempo, mas apenas hoje fiz o meu cadastro. Estou com um problema e não encontrei solução neste fórum, nem em outros sites.
Obs: Segue a planilha em anexo, porem algumas funcionalidades não irão funcionar, pois alterei os valores, para preservar a identidade dos dados.

*Na minha planilha tenho uma macro que deve buscar a palavra "Verdadeiro" em uma coluna específica, e em seguida limpar as células específicas daquela linha.
O código esta funcionando, porem ele só limpa as células da primeira linha encontrada, as linhas a baixo ele não limpa. Segue o código a baixo:

Sub Excluir1()

'Procura o valor verdadeiro dentro das linhas 13 a 82.
For Lin = 13 To 82
If Cells(Lin, 16).Value = "Verdadeiro" Then
ActiveSheet.Range(Cells(Lin, 2), Cells(Lin, 10)).Select
Selection.ClearContents

'Desmarca todas as caixas.
 Range("P12:P82").Select
 ActiveWindow.SmallScroll Down:=-57
 Selection.FormulaR1C1 = "FALSE"
End If

Next Lin

Cells(1, 1).Select

End Sub

*Estou criando também uma msgbox que questiona se o usuário tem certeza que deseja excluir os itens selecionados. Assim que o código acima estiver pronto, gostaria de adiciona-lo nesta msgbox:

Sub ExcluirTeste()

Dim resp As VbMsgBoxResult
Dim itens As String

itens = Range("P83").Value
resp = MsgBox("Tem certeza que deseja apagar este(s) " + itens + " iten(s)?", vbYesNo, "Apagar Itens")

'Quando clicar em Sim.
If (resp = vbYes) Then
MsgBox "Iten(s) apagado(s) com sucesso.", vbInformation, "Apagar Itens"

End If

End Sub

Desde já agradeço.