View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
michael.beckinsale michael.beckinsale is offline
external usenet poster
 
Posts: 274
Default MACRO TO ADJUST COLOUMN WIDTH BY VALUE

On 25 Feb, 11:55, K wrote:
Hi, *Please if anybody tell me the macro that if I put any thing in
any cell of any coloumn
of whole sheet then coloumn should get adjusted by that value width.
Thanks


Hi K,

Paste this code into the sheet code module (copy code, right click
sheet name tab, click view code, paste code)

**Beware word wrapping**

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Cells) Then
ActiveCell.ColumnWidth = Target.Value
End If
End Sub

Regards

Michael