Hi,
I have taken following code from a webpage which uses a sub to resize particular columns. Is it possible to make this work as a worksheet_change event? ie on opening the sheet automatically resize the column or columns to a predetermined width - only interested in columns really.

[VBA]Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)
' changes the column width to mmWidth
Dim w As Single
If ColNo < 1 Or ColNo > 255 Then Exit Sub
Application.ScreenUpdating = False
w = Application.CentimetersToPoints(mmWidth / 10)
While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w
Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1
Wend
While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w
Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1
Wend
End Sub
Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)
' changes the row height to mmHeight
If RowNo < 1 Or RowNo > 65536 Then Exit Sub
Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)
End Sub
Sub ChangeWidthAndHeight()
SetColumnWidthMM 1, 20 '1st column size same as 10.14(76 pixels)
SetRowHeightMM 1, 6 '1st row size same as 16.50(22 pixels)
End Sub[/VBA]

thanks for your help

regards

jon