Hi,

I would like to create a macro that set the columns width for my Excel form.

It must probably look like what's quoted at the end of this message. The
problem is that it is a macro that is active permenently on the page when you
edit the cells. I want a macro that set the width on demand. Any ideas?
Thx!

Werner

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Column
Case 1, 3, 5 To 8
Target.ColumnWidth = 2
Case 2, 4
Target.ColumnWidth = 7
End Select
End Sub

--
Message posted via http://www.officekb.com