How set all cells size and formatting back to default


res

VBA code to set all column/row’s size back to default size, and Remove all cells formatting and styles.

Sub resetcells()

ActiveSheet.Cells.ClearFormats
ActiveSheet.Rows.EntireRow.RowHeight = ActiveSheet.StandardHeight
ActiveSheet.Columns.EntireColumn.ColumnWidth = ActiveSheet.StandardWidth

ActiveSheet.Cells.Font.Name = Application.StandardFont

End Sub

View original post