ник: Василий
Огромное спасибо! 
а не подскажите где тут ошибка? После того как один раз создаёт лист эксель второй раз выдает пустую страницу...надо перезагружать акс
Dim objExcel As Object
Set objExcel = CreateObject("Excel.application")
objExcel.Workbooks.Add
objExcel.Application.Visible = True
With objExcel
ActiveCell.FormulaR1C1 = "Компания"
Range("B1").Select
Columns("B:B").ColumnWidth = 23.29
Range("B1").Select
ActiveCell.FormulaR1C1 = "Название"
Range("B3").Select
End With