ColumnWidth

[haseft]

hi,
want to change ColumnWidth with variable.
not working.

Dim lastcol As Long
Set sht4 = Worksheets("Sheet4")
lastcol = sht4.Cells(4, Columns.Count).End(xlToLeft).Column

Columns("6: lastcol").ColumnWidth = 10

 

[Peter_SSs]

You have not referenced the columns correctly. Try this change

Columns("6: lastcol").ColumnWidth = 10
Columns(6).Resize(, lastcol - 5).ColumnWidth = 10

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[haseft]

thanks Peter,
it works for column,
i tried for row, not working'
want to EntireRow.AutoFit from row 5 to lastrow

Rows(5).Resize(, lastrow - 4).EntireRow.AutoFit

 

[Peter_SSs]

i tried for row, not working'

For rows, you have to resize vertically, not horizontally, so remove the comma from the resize parentheses.
Also, since you are already referring to whole rows there is no need for entire row

Rows(5).Resize(, lastrow - 4).EntireRow.AutoFit
Rows(5).Resize(lastrow - 4).AutoFit

 

[haseft]

Thanks Peter,
It works great ? ?

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.