怎么用VBA让EXCEL的单元格自动调整大小适应文本内容的多少

如何用VBA让EXCEL的单元格自动调整大小适应文本内容的多少
使用VBA让单元格自动适应文本的多少而将其完整的显示出来。
比如说遇到文本内容较多时，单元格会自动拉长宽度，高度以完全显示;
而遇到文本内容较少时，又能自动缩小以占用较少的显示空格。

使用unatfit属性不能搞定。请知悉。

------解决方案--------------------------------------------------------

VB code

Columns(Selection.Column).EntireColumn.AutoFit