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

--
HTH

Bob Phillips

"Nigel Bennett" wrote in message
...
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