auto fit the cell

[Darshantm]

Hi

I am using excel 2016 and I want my cells to fix automatically,

for ex., if I enter the text into my cell and that text goes out of the cell size then the cell should automatically resize it. I want wrap text to be done automatically. can any one help?

Now I am using the below code it works fine but the cell will not get resize

Private Sub Worksheet_Change(ByVal Target As Range)

Target.HorizontalAlignment = xlCenter
Target.WrapText = True
Target.Font.Bold = True
Target.Borders(xlEdgeBottom).LineStyle = xlContinuous
Target.ShrinkToFit = True
End Sub

 

[yky]

Try:

Target.AutoFit