View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jean-Jerome Doucet via OfficeKB.com Jean-Jerome Doucet via OfficeKB.com is offline
external usenet poster
 
Posts: 17
Default Macro to set the colomns width

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