Rows("1:1").Select

 ct =  2 

Наименование - таблицы с данными, в них для определенной даты данные.
Т.е. каждому предприятию несльколько или одна запись.
Вроде неплохо, но в форме выбора предприятия (есть поле со списком для 
выбора дат) буду отображаться и предприятия которые в данном периоде еще
 не появились, или к данному перидоду уже "умерли".
Можно конечно сделать источником для формы запрос, в котором присутствует
и таблица "наименование" и все остальные, но источник на основе  8 (как минимум) 
таблиц, помоему слишком..

Private Sub B_Format_Click()
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim ct As Long
DoCmd.OutputTo acOutputQuery, "ZFin_O", acFormatXLS, "C:\inna.xls", False
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("C:\inna.xls")
Set mysheet = MyWo.Worksheets("ZFin_O")
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Rows("1:1").Select
    With Selection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  90 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Set MyRst = New ADODB.Recordset

MyRst.Open "select * from ZFin_O", CurrentProject.Connection, adOpenStatic, adLockReadOnly

ct =  2 
Do Until MyRst.EOF
   If MyRst![Rang_Id] <=  0  Then
     Cells(ct,  1 ).Select
    Selection.Font.Bold = True
    Selection.Font.Italic = True
   End If
ct = ct +  1 
MyRst.MoveNext
Loop
MyRst.Close
Set MyRst = Nothing
 '++++++++++++++++++++++++
 
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Application.Quit
End Sub

MyRst.Open "select * from ZFin_O", CurrentProject.Connection, adOpenStatic, adLockReadOnly

SELECT UZ7.Inna AS Наименoвание, UZ7.Всего, UZ7.Пашня, UZ7.Многолетние, 
UZ7.Сенокосы, UZ7.пастбища, UZ7.[Итого с/х угодьев], UZ7.
Мел_строительство, UZ7.Покрыт_лесом, UZ7.Лесополосы, UZ7.Болота, UZ7.
Под_водой, UZ7.Площади, UZ7.Парки, UZ7.Застроенные, UZ7.Нарушенные, UZ7.
Полигоны_наруш, UZ7.Овраги_наруш, UZ7.Пески_наруш, UZ7.Другие_наруш, 
UZ7.Пашня_орош, UZ7.Многолет_орош, UZ7.Сенокосы_орош, UZ7.
пастбища_орош, UZ7.Прочие_орош, UZ7.Rang_Id
FROM UZ7
ORDER BY UZ7.Код, UZ7.Rang_Id;

SELECT UZ6.Код, Наименование.Наименование, UZ6.Rang_Id, TRod.Rod, 
MyDecode([Rang_Id],[Наименование.Наименование],[Rod]) AS Inna, UZ6.Alless 
AS Всего, UZ6.Пашня, UZ6.Многолетние, UZ6.Сенокосы, UZ6.пастбища, UZ6.SX 
AS [Итого с/х угодьев], UZ6.Мел_строительство, UZ6.Покрыт_лесом, UZ6.
Лесополосы, UZ6.Болота, UZ6.Под_водой, UZ6.Площади, UZ6.Парки, UZ6.
Застроенные, UZ6.Нарушенные, UZ6.Полигоны_наруш, UZ6.Овраги_наруш, UZ6.
Пески_наруш, UZ6.Другие_наруш, UZ6.Пашня_орош, UZ6.Многолет_орош, UZ6.
Сенокосы_орош, UZ6.пастбища_орош, UZ6.Прочие_орош
FROM (UZ6 LEFT JOIN Наименование ON UZ6.Код = Наименование.Код) LEFT JOIN 
TRod ON UZ6.Rang_Id = TRod.Rod_Id
ORDER BY UZ6.Код, UZ6.Rang_Id;