Sub AutoFit()  
Range("A1").WrapText = True  
Range("A1").EntireRow.AutoFit  
End Sub  
 
Это всё запиши в модуле листа, где находится непослушная ячейка А1. И будет тебе счастье))  
Удачи!

Как сделать то же самое только с объединёнными ячейками???

Лови файлик. У меня работает как часики. Проверь. Жду замечаний

назови, какие ячейки в листе должны быть объединены?  
p.s. прошу, не надо меня "уважать". Мне только 16 лет, не привык, чтобы называли уважаемым ))). Можно даже на "ты".

Ячейки в строке любые (примерно с A1:C1)

{quote}{login=dsapa}{date=26.06.2008 11:46}{thema=}{post}Лови файлик. У меня работает как часики. Проверь. Жду замечаний{/post}{/quote}  
 
Заработало!!!  
Очень благодарен за помощь.

{quote}{login=Ан13}{date=26.06.2008 02:24}{thema=Как изменить высоту строки в VB}{post}Ответьте пожалуйста на мой вопрос!!!{/post}{/quote}  
 
Смотрите код.  
 
Sub RowHeightFiting3()  
' Объединённая ячейка должна быть активной!!!  
' Если требуется подобрать высоту для неактивной ячейки, то нужно переменной MyRanAdr присвоить ПОЛНЫЙ адрес области объединённой ячейки '(Напр, MyRanAdr = "D4:G7" вместо строки MyRanAdr = ActiveCell.MergeArea.Address)  
Application.ScreenUpdating = False  
 
Dim MyNormalMiddleWidth, MyNormalEdgeWidth  
Dim c1, c2, w1, w2 'временные переменные ширин столбцов в симв и пт  
Dim MyTempCell As Range  
Dim OldColWidth  
Set MyTempCell = Cells(65536, 256)  
OldColWidth = MyTempCell.ColumnWidth  
c1 = 10 ' ширину в симв можно установить любую, но точно не менее 1 (где нельзя реально определить нужные нам данные),  
c2 = 15 ' и лучше более 3 и целочисленные (для уменьшения влияния ошибки округления..... впрочем, в коде эта возможная ошибка учитывается)  
MyTempCell.ColumnWidth = c1  
c1 = MyTempCell.ColumnWidth  
w1 = MyTempCell.Width  
MyTempCell.ColumnWidth = c2  
c2 = MyTempCell.ColumnWidth  
w2 = MyTempCell.Width  
MyNormalMiddleWidth = Format((w2 - w1) / (c2 - c1), "#0.00")  
MyNormalEdgeWidth = Format((c2 * w1 - c1 * w2) / (c2 - c1), "#0.00")  
MyTempCell.ColumnWidth = OldColWidth  
Dim MyRanAdr As String  
Dim MergeAreaTotalHeight, NewRH  
Dim MergeAreaFirstCellColWidth, MergeAreaFirstCellColHeight  
MyRanAdr = ActiveCell.MergeArea.Address 'адрес области с объединённой ячейкой  
MergeAreaTotalHeight = Range(MyRanAdr).Height ' высота всей объединённой ячейки в ед. пт  
MergeAreaFirstCellColWidth = Range(MyRanAdr).Cells(1, 1).EntireColumn.ColumnWidth ' ширина первого столбца в объединённой ячейке  
MergeAreaFirstCellColHeight = Range(MyRanAdr).Cells(1, 1).EntireRow.RowHeight ' высота первой строки в объединённой ячейке  
Range(MyRanAdr).Cells(1, 1).ColumnWidth = (Range(MyRanAdr).Width - MyNormalEdgeWidth) / MyNormalMiddleWidth 'установка ширины первого столбца объед. ячейки равной общей ширине объед. ячейки '''БЕЗ ПОДГОНКИ!!!  
Range(MyRanAdr).WrapText = True  
Range(MyRanAdr).MergeCells = False  
Range(MyRanAdr).Cells(1, 1).EntireRow.AutoFit  
NewRH = Range(MyRanAdr).Cells(1, 1).EntireRow.RowHeight  
Range(MyRanAdr).MergeCells = True  
Range(MyRanAdr).Cells(1, 1).EntireColumn.ColumnWidth = MergeAreaFirstCellColWidth  
If NewRH < MergeAreaTotalHeight Then 'если новая высота меньше изначальной, то оставляем изначальную высоту!  
Range(MyRanAdr).Cells(1, 1).EntireRow.RowHeight = MergeAreaFirstCellColHeight  
Else  
Range(MyRanAdr).Cells(1, 1).EntireRow.RowHeight = NewRH - (MergeAreaTotalHeight - MergeAreaFirstCellColHeight) ' для 1st строки в объед.ячейке  
End If  
'Range(MyRanAdr).EntireRow.RowHeight = NewRH / Range(MyRanAdr).Rows.Count 'для равной высоты всех строк в объед.ячейке (вместо предыдущего блока If)  
Application.ScreenUpdating = True  
End Sub

{quote}{login=Ан13}{date=26.06.2008 04:15}{thema=Как изменить высоту строки в VB}{post}Спасибо Дмитрий!  
Всё работает. Ещё вопросик.  
Можно сделать чтобы эта функция обрабатывала несколько строк сразу (допустим A1:C1, A2:C2){/post}{/quote}  
Но это уже на сообразительность, всё элементарно - думайте!  
Но код я выложил, чтобы  Вы его оптимизировали.  
Два варианта:  
До 255 символов в объединенной ячейке, и более 255 символов.

Прошу прощения - вопрос снимается. Виновник в лице закрепления областей и недорезанного макроса найден. :)