Автоподбор ширины колонок в диапазоне

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как прописать кодом (vba excel 2003) для всех ячеек диапазона "E6:X15" (в этом диапазоне есть пустые ячейки и скрытые столбцы) назначение ячейкам числового формата до 3-х знаков и автоподбор ширины ячейки по числу в ней (по самому длинному в столбце)?
Заранее спасибо!

[IgorGO]

with range("e6^x15")
  .numberformat = "0.000"
  columns.autofit
end with

[ольгаг]

Спасибо!
У меня получилось так:

With Range("E6:X15")
  .NumberFormat = "0.000"
End With

чтобы просто назначить числовой формат ячейкам. В результате в некоторых ячейках диапазона значения отображаются как #####...

Следующим кодом ниже пытаюсь пройтись по всем ячейкам где отображение типа #####...(т.е. число по ширине не вместилось):

For Each cell In Range("E6:X15")
 If cell.Value Like "#*" Then
  cell.EntireColumn.AutoFit
 End If
Next

Но в результате этот код обрабатывает все ячейки диапазона, даже если ячейка пустая (т.е. пустой весь столбец) или число в ней итак помещается.
Подскажите пожалуйста, как исправить код, чтобы пройтись только по ячейкам с отображением числа в виде #####... и если таковы есть, то выполнить автоподбор ширины столбца?
Заранее спасибо!

[Aleksandr H.]

ольгаг, а чем код Игоря не подошел?