怎么计算Excel中自动适应文本的宽度（即最适合的列宽）

如何计算Excel中自动适应文本的宽度（即最适合的列宽）
如题

[解决办法]
Sub Macro2()

Columns( "D:D ").Columns.AutoFit
MsgBox Range( "d:d ").ColumnWidth
End Sub

[解决办法]
Cells(2, cc).EntireColumn.AutoFit