ник: Василий
к сожалению не помогает 
при первой загрузке все цвета как должны быть при закрытии и при втором открытии все цвета теряются...закрываю акс, открываю вновь, при первой загрузке все цвета на месте, при второй пропадают, не пойму почему....
Dim objExcel As Excel.Application
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("SELECT Company FROM Company")
Set objExcel = New Excel.Application
With objExcel
.Visible = True
.Workbooks.Add
.Range("a1").CopyFromRecordset rs
.Range("a1").ColumnWidth = 23.29
.Range("a1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With