how to autoadjust the size of a cell in a worksheet?

[maryam]

I wrote some codes to fill the cells of a worksheet, I want to know how can I adjust the size of the cell with the size of the text inside it?

[johnske]

example
Option Explicit

Sub Adjust()
Sheet1.Columns.AutoFit
End Sub