Such as (?)...

Private Sub Worksheet_Activate()
Me.Columns("A:C").ColumnWidth = 10
Me.Columns("D").ColumnWidth = 5
Me.Columns("E").ColumnWidth = 25
Me.Columns("F").ColumnWidth = 50
Me.Columns("G:L").ColumnWidth = 3
End Sub

HTH

"Hazel" wrote:

I have created a spreadsheet where every column has a different width. After
adjusting the width, I saved it. Every time I sort the spreadsheet, the
column width changes at will and I have to go through and adjust them again.
There is no pattern to it. They just change at random. What can I do to get
my adjustments to take?
--
Hazel