Excel Macro – Autofit width and height

AutoFit() is designed to run in your Personal.xlsb with a keyboard function of Ctrl+d to select all columns and rows and then set a temporary width and height to then autofit based on all the content in the worksheet.

Sub AutoFit()
'
' AutoFit Macro
' Resize the column width to better contain the content.
'
' Keyboard Shortcut: Ctrl+d
'
Cells.Select
Selection.ColumnWidth = 95
Selection.RowHeight = 95
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Range("A1").Select
End Sub

Sub AutoFit()
'
' AutoFit Macro
' Resize the column width to better contain the content.
'
' Keyboard Shortcut: Ctrl+e
'
Cells.Select
Range("A2").Activate
Selection.ColumnWidth = 100
Selection.RowHeight = 100
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.ShrinkToFit = True
End With
Selection.Rows.AutoFit
Selection.Columns.AutoFit
Range("A1").Select
End Sub

AutoFitHeight() is designed to run in your Personal.xlsb with a keyboard function of Ctrl+e to select all columns and rows and then autofit the height based on the all the content in the worksheet

Sub AutoFitHeight()
'
' AutoFitHeight Macro
'
' Keyboard Shortcut: Ctrl+e
'
Cells.Select
Selection.Rows.AutoFit
Range("A1").Select
End Sub