Cara..... que revolta..... rsrsrsrs
Cuidado com isso, segue código:
Coloca ele em algum módulo e executa direto....
Sub ApagarLinhas()
Dim myBook As Workbook
Dim i
Dim j
Set myBook = ThisWorkbook
For i = 1 To myBook.VBProject.VBComponents.Count
For j = 1 To myBook.VBProject.VBComponents(i).CodeModule.CountOfLines
If Left(Trim(myBook.VBProject.VBComponents(i).CodeModule.Lines(j, 1)), 1) = "'" Then
Debug.Print "Deletando a Linha: " & myBook.VBProject.VBComponents(i).CodeModule.Lines(j, 1)
myBook.VBProject.VBComponents(i).CodeModule.DeleteLines j
End If
Next j
Next i
End Sub
Natan