On Error Resume Next
With Range("A8:AS65,A8:E25,F8:J25,F28:J45,K7:O17,K20:O29,K32:O41,P8:T17," & _
"U8:Y19,U22:Y33,Z8:AD25,Z28:AD45,Z48:AD65,AE8:AI17,AE20:AI29,AE32:AI41," & _
"AJ8:AN17,AO8:AS19,AO22:AS33").SpecialCells(xlCellTypeBlanks)
.Locked = False
.FormulaHidden = True
End With
On Error GoTo 0