Private Sub Workbook_Open()
Dim Sheet As Worksheet
For Each Sheet In Worksheets
Sheet.Activate
Sheet.Columns('H:Z').EntireColumn.Hidden = True
With Rows('1:1')
.HorizontalAlignment = xlJustify
.WrapText = True
.Orientation = 90
End With
Cells.ColumnWidth = 14
Next
End Sub