итак, до чего я дошел:  
 
попробовал реализовать через специальную вставку, получился такой модуль:  
Sub ColorCorrect()  
   Dim WB As Workbook  
   Dim WBN As Workbook  
   Dim sh As Worksheet  
   Dim c, d  
     
   Set WB = ActiveWorkbook  
   Set WBN = Workbooks.Add  
   c = WBN.Sheets.Count  
     
   For Each sh In WB.Sheets  
       WBN.Sheets.Add after:=WBN.Sheets(WBN.Sheets.Count)  
       WBN.Sheets(WBN.Sheets.Count).Name = sh.Name & "_new"  
       sh.Cells.Copy  
         
       With WBN.Sheets(WBN.Sheets.Count)  
           .Paste  
           .Cells.PasteSpecial Paste:=xlPasteColumnWidths  
           .Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme  
       End With  
   Next sh  
     
   Application.DisplayAlerts = False  
       For d = 1 To c  
           WBN.Sheets(1).Delete  
       Next d  
   Application.DisplayAlerts = True  
End Sub  
 
все бы ничего, но как оказалось, корежит рисунки в отчетах :(  
 
Внимательно изучил ссылки - тема интересная, но немного не про то - там убирается цвет вообще  
 
пришлось вернуться к своей первоначальной идее:  
 
Sub ColorCorrect()  
   Dim c As Range  
   Dim sh As Worksheet  
   Dim i As Integer  
     
   For Each sh In ActiveWorkbook.Sheets  
       For Each c In sh.UsedRange  
           c.Interior.Color = c.Interior.Color  
           c.Font.Color = c.Font.Color  
           For i = 1 To 4  
               If Not c.Borders(i).LineStyle = xlNone Then c.Borders(i).Color = c.Borders(i).Color  
           Next i  
       Next c  
   Next sh  
   MsgBox "Done"  
End Sub  
 
Всем спасибо за участие!!!