Let's say you want this macro to work for Sheet1.
Right click on the tab down below that says Sheet1.
Then click on View Code
Now, on the left hand side, you should see a small window with:
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
ThisWorkbook
Double click on Sheet1(Sheet1). This makes the large window on the right become the Sheet Level Module area where you will paste the code.
Make certain there is only one line at the top that says OPTION EXPLICIT
When you save the workbook, save it as Macro Enabled .xlsm
Now when you type anything into a cell on Sheet 1 it will automatically format itself for word wrap, auto-width/auto-height.
No need to format anything on the worksheet ... the code is doing that for you.
You can edit the RowHeight and ColumnWidth by changing the numbers in the macro code: 15.0______8.43
Bookmarks