Sub Hide_Cells()
Dim ws As Worksheet
With Worksheets("CWS")
.Range("B1").Value = "."
.Range("D1").Value = "."
.Range("H1").Value = "Current Equipment"
.Range("Q1").Value = "."
.Range("AD1").Value = "Pole ID #"
.Range("AE1").Value = "LED Watt Installed"
.Range("AF1").Value = "Install Date"
.Range("AG1").Value = "Contractor Notes"
.Range("AH1").Value = "CMP Field"
.Range("AI1").Value = "CMP Field"
.Range("AJ1").Value = "CMP Field"
.Range("AK1").Value = "CMP Field"
.Range("AL1").Value = "Locked Columns A:AC = UnLocked Columns AD:AK"
Worksheets("CWS").Cells.EntireColumn.AutoFit
With Worksheets("CWS").Range("AD1:AK1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
With Worksheets("CWS").Columns("AB:AD")
.ColumnWidth = 13
End With
With Worksheets("CWS").Columns("B:AC")
.Locked = True
.FormulaHidden = False
End With
With Worksheets("CWS").Columns("AD:AK")
.Locked = False
.FormulaHidden = False
Worksheets("CWS").Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True
End With
Worksheets("CWS").Protect Password:="12121212"
End With
End With
End Sub