Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
With Range("V5:AR5,V8:AR8,V11:AR11,V14:AR14,V17:AR17,V20:AR20,V23:AR23")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
End With
Range("V:V,X:X,Z:Z,AB:AB,AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR").EntireColumn.AutoFit
Range("8:8,11:11,14:14,17:17,20:20,23:23").EntireRow.AutoFit
Application.ScreenUpdating = True
End Sub