Auto Fit Columns and Auto Fit Columns

Auto Fit Columns
Sub AutoFitColumns()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub



Auto Fit Columns
Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub