Need help with VBA code. Tons of code seperated in two, second part of code doesn't work.

Originally Posted by FragaGeddon

And I guess columns would be something like:

If Not Intersect(Target, ActiveSheet.Range("E4:E33")) Is Nothing Then
blHide = (Target.Value = ""): Cw = Target.Column
For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
With ws
.Unprotect (sPW)
.Range(Cw & ":" & Cw & "," & Cw + 41 & ":" & Cw + 41 & "," & _
Cw + 82 & ":" & Cw + 82 & "," & Cw + 123 & ":" & Cw + 123).EntireColumn.Hidden = blHide
.Protect (sPW)
End With

Correct, though you should also define Cw As Long (Since Rw is an abbreviation of Row, I wouldn't abbreviate Column as Cw).

PS: Please use the code tags, inserted via the # symbol on the posting menu, when posting code.