Using Code to Adjust Specific Column Width

[Nigel Bennett]

I have a spreadsheet that retrieves data after it has
retreived the data I want to use code to look in row 5 and
go thru each cell up to the last colum, if there is
nothing in the cell I want it to resize it to a smaller
size,

is there anyway of doing this

Thanks

 

[Bob Phillips]

If Application.COUNTA(Range("C:C") = 0 Then
Range("C:C").ColumnWidth = 5
End If

 

[Nigel Bennett]

Could you explain the range definition for me please

 

[Nigel Bennett]

No the code didn't work I had the following entered

If application.CountA(range("A5,CG5")) = 0 Then
range("A5,CG5").ColumnWidth = 5
End If

any help

 

[Guest]

How about the following:


Dim Rng As Range
Dim oCell As Range
Dim LastCol As Range

Set LastCol = Cells(5, Columns.Count).End(xlToLeft)
Set Rng = Range(Cells(5, 1), LastCol)

For each oCell in Rng
If oCell="" then oCell.ColumnWidth=5
Next oCell