По-моему в этой программе (VBACodeCleaner v.5.0.28) есть такая возможность. См. приложение

Спасибо, The_Prist. Мудреная штука этот Code Cleaner. Хотелось бы код, типа: для каждого модуля в этой книге - для каждой строки в модуле - если амперсанд - все остальное в строке удалить. Может подскажете?

да там выгружается модуль и загружается обратно, но это имеет отношение к другой теме - эти процедуры можно ручками сделать по окончании проекта, чтоб весил поменьше, мне б комменты все чтоб руками не удалять..., и голову не ломать :), знает же кто-нибудь, подскажите

опа, нашел, когда загуглил "delete all comments vba"  
для офиса 2007:  
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)  
для офиса 2003:  
Dim wks As Worksheet  
Dim cmnt As Comment  
For Each wks In ActiveWorkbook.Sheets  
For Each cmnt In wks.Comments  
cmnt.Delete  
Next cmnt  
Next  
 
правда не проверил еще...

Ура-а-а-а! Заработало!  
Код:  
Dim n               As Long  
   Dim i               As Long  
   Dim j               As Long  
   Dim k               As Long  
   Dim l               As Long  
   Dim LineText        As String  
   Dim ExitString      As String  
   Dim Quotes          As Long  
   Dim q               As Long  
   Dim StartPos        As Long  
       
   For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count  
       With ActiveWorkbook.VBProject.VBComponents(i).CodeModule  
           For j = .CountOfLines To 1 Step -1  
               LineText = Trim(.Lines(j, 1))  
               If LineText = "ExitString = " & _  
               """" & "Ignore Comments In This Module" & """" Then  
                   Exit For  
               End If  
               StartPos = 1  
Retry:  
               n = InStr(StartPos, LineText, "'")  
               q = InStr(StartPos, LineText, """")  
               Quotes = 0  
               If q < n Then  
                   For l = 1 To n  
                       If Mid(LineText, l, 1) = """" Then  
                           Quotes = Quotes + 1  
                       End If  
                   Next l  
               End If  
               If Quotes = Application.WorksheetFunction.Odd(Quotes) Then  
                   StartPos = n + 1  
GoTo Retry:  
               Else  
                   Select Case n  
                   Case Is = 0  
                   Case Is = 1  
                       .DeleteLines j, 1  
                   Case Is > 1  
                       .ReplaceLine j, Left(LineText, n - 1)  
                   End Select  
               End If  
           Next j  
       End With  
   Next i  
       
   ExitString = "Ignore Comments In This Module"  
 
В офисе 2007 в параметрах безопасности поставить галочку "Доверять доступ к объектной модели проектов VBA"

хитрый какой) надо взять на заметку)

paw, эх, мы к вам всей душой, а вы Plex ломали. Как вам не стыдно! )

Админы! В копилку идей код слабо положить? Мания величия не отпускает :)). Концептуальная штука, жизненная. Может пригодится кому. Коммент про ломалку офисных вещей лишний. Некрасиво. Сорьки

Sameer, извините не догнал Ваш коммент, недалёк...  
The_Prist это не просьба, предложение, на Ваше усмотрение конечно, приятно думать что публике поможет, помогает - проверено :). "Мания величия" - это ж стёб, над собой :)  
Sameer, Excel тоже люблю ;)

{quote}{login=Alex_ST}{date=04.03.2010 04:51}{thema=}{post}Объясните тупому, куда этот код класть? Как с ним работать?  
В стандартном модуле пробовал - никакого эффекта. Все комментарии на месте.  
А в последнее время на работе обстановка такая, что в пору начинать подготовку к стиранию комментариев (а я их писал много и подробно чтобы потом самому легче было разбираться){/post}{/quote}  
Я проверил, работает.  
Положил в стандартный модуль и    
"в оффисе 2003 тоже галочку следует поставить "Доверять доступ к объектной модели проектов VBA""