If you want find the ##### values in VBA you have to look at Range.Text
which gives you the formatted values.

Charles
___________________________________
The Excel Calculation Site
http://www.decisionmodels.com

"Per Jessen" wrote in message
...
Hi,

Maybe this is what you need:

Sub Macro1()
Dim col As Range
For Each col In ActiveSheet.UsedRange.Columns
col.EntireColumn.AutoFit
If col.ColumnWidth < 8.43 Then
col.ColumnWidth = 8.43
End If
Next
End Sub


"vimalg" skrev i meddelelsen
.. .
i want to search ######## values in a sheet. if found then i have to apply
auto column fit. (## values have appeared coz the width of the column is
smaller than the value)these cells actually containg value but showing
###
coz of width.. need a vba code for this

url:http://www.ureader.com/gp/1037-1.aspx