Auto adjust for cells according to value using VBA

[Mahesh]

Perhaps ! u can use this also

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