Autofit Data Automatically

How to autofit data automatically and wrap text in an Excel worksheet automatically with VBA. As we type data into an Excel worksheet we note that the content can be of different length and therefore we may need to auto-fit the content manually. To save time we can automate the complete process with a single line of code in VBA. The same applies to content that needs to be wrapped for better readability. Watch the video below:

Watch this video on YouTube.

Here’s the complete VBA code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range(“D3”).ColumnWidth = 20
Worksheets(“sheet1”).Range(“D3”).Value = “Total due in 15 days. Overdue accounts subject to a service charge of 1.5% per month.”
Worksheets(“sheet1”).Range(“D3”).WrapText = True

End Sub

Published by

Dinesh Kumar Takyar

Welcome to! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: For a structured Excel VBA training course online you can visit:

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.