Auto adjust for cells according to value using VBA

Hi,

Is it possoble through VBA to auto size the cell width according to the value in it.

Thanx in Advance.:cool:

Are you looking for

Code:

---

Activecell.EntireColumn.Autofit

---

? This will adjust the width of the column. If this is not what you are looking for, can you clarify with an example?

Perhaps ! u can use this also

Code:

---

Sub test()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
        On Error Resume Next
        sht.Activate
        Cells.EntireColumn.AutoFit
    Next sht
End Sub

---

Thanx for this useful function.
Working!
:cool: