Ссори, был в отпуске..вопрос решен..Спасибо всем участникам.

Влад, файл более 100 кб. никак сжать на меньше не получиться..  
По поводу макрорекордера - макрос писал не я, но судя по всему Вы правы..передалось по наследству так сказать:)  
А никак нельзя вставить форматы с предыдущей книги  - в новую создаваемую??    
Попытаюсь упростить макрос, мож и получиться а там что нибудь можеи и прийдет в голову..

Добрый день, уважаемые обитатели:)  
Есть такая проблемка, имеется макрос который из модели (отчёт в excel) выбирает выбранный лист и сохраняет его отдельно в новый книге, но при этом теряется формат ячеек (меняется заливка столбцов, строк - на неприемлимые цвета). Может кто сталкивался с такой проблемой и подскажет как мне выйти из данной ситуации.  
Макрос:  
Sub SAve_()  
Application.DisplayAlerts = False  
   Dim nam As String  
   Dim date_ As Date  
 
If Weekday(Date, 2) = 1 Then  
   date_ = Date - 3  
Else:  
   date_ = Date - 1  
End If  
'On Error GoTo err  
 Sheets(Array("rBriefing_RB_FORMULAS")).Select  
   Sheets("rBriefing_RB_FORMULAS").Activate  
   Sheets(Array("rBriefing_RB_FORMULAS")).Copy  
   Sheets(Array("rBriefing_RB_FORMULAS")).Select  
   Cells.Select  
   Selection.Copy  
   Application.CutCopyMode = False  
   Selection.Copy  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Application.CutCopyMode = False  
 
   nam = Application.GetSaveAsFilename("rBriefing_RB_" & date_ & ".xls")  
 
       
   If nam = "False" Then  
   ActiveWorkbook.Close savechanges:=False  
   MsgBox ("Отчет не сохранен!")  
   Exit Sub  
   Else  
     
   ActiveWorkbook.SaveAs Filename:=nam, FileFormat:=xlNormal, _  
       Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _  
       CreateBackup:=False  
     
Application.Dialogs(xlDialogSendMail).Show  
     
   ActiveWindow.Close  
  Sheets("title").Select  
   Range("F33").Select  
   End If  
   
   
 
 
     
   MsgBox ("Отчет успешно сохранен!") & nam  
   Exit Sub  
err: MsgBox ("Отчет не сохранен!")  
     
Application.DisplayAlerts = True  
 
End Sub

Если данная программа, написана спец. для Вашего предприятия  - я бы назвал её "локальной надстройкой Excel".

Спасибо Вам за ссылку, но если чесно я там абсолютно не разобрался- всего 2 месяца работаю с VBA (самоучка), если я Вам покажу код полностью с подключением к БД - вы мне подскажите, как правильно прописать -дабы она таки работала с расширением *accdb

Доброе утро, уважаемые обитатели:)  
Обращаюсь к Вам вот с каким вопросом, есть у меня макрос который затягивает данные в книгу Эксель из Access:  
 
Sub load_access_sales()  
   Call clear_sheet("продажи_МБ")  
  ' If UserForm8.TextBox1.Value <> "" Then  
 
     '      T = UserForm2.TextBox1.Text  
     ''     tt = UserForm2.TextBox2.Text  
         
 
     
   Dim strSql As String  
   Dim z  
DB = "V:\Public\DRP_Project\БД\Sales.mdb"  
 
strSql = "SELECT ЗАПРОС_МБ_NEW.[Дата сделки], ЗАПРОС_МБ_NEW.[Региональная дирекция], ЗАПРОС_МБ_NEW.[Тип контрагента], ЗАПРОС_МБ_NEW.[Код контрагента], ЗАПРОС_МБ_NEW.[Тип сделки (наим)], ЗАПРОС_МБ_NEW.[Код сделки], ЗАПРОС_МБ_NEW.[Код сделки кредита], ЗАПРОС_МБ_NEW.Валюта, ЗАПРОС_МБ_NEW.[Первоначальная сумма по договору (грнэкв)], ЗАПРОС_МБ_NEW.[%% ставка(маржа)], ЗАПРОС_МБ_NEW.[Count-Номер сделки] FROM ЗАПРОС_МБ_NEW;"
 
           
        Sheet_name = "продажи_МБ"  
        z = GetRecord(DB, strSql, "", Sheet_name)  
     
End Sub  
Макрос чудно работает с базами данных 2000 и 2003 с расширением *mdb.  
 
Так вот, после того, когда у меня появились базы Access 2007 c расширением *accdb - макрос пишет - "Нероспознаваемый формат базы данных". Переводить базу данных в 2003 не хочу, потому как по специфике работы - там ооочень важные данные. А я уверен, что после конвертирование в Access 2003 она будет сжиматься, а прецеденты после сжимание базы и исчезнование ваажной инфы у меня уже были..  
Поэтому прошу помощи у Вас...мож кто когда-то сталкивался с такой проблемой.