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
|