HI
I'm constantly getting error when applying this code or sometime it doesn't even work. where am I going wrong ?

If Target.Address(0, 0) = "U4:U28" Then

    If Target.Value <> "" Then
        On Error Resume Next
        Range("I4:Q4, E5:Q5 E6:Q6, E7:Q7, E8:Q8, E9:Q9, E10:Q10, E11:Q11, E12:Q12, E13:Q13, E14:Q14, E17:Q17, E18:Q18, E19:Q19, E20:Q20, E21:Q21, E22:Q22, E23:Q23, E24:Q24, E25:Q25, E26:Q26, E27:Q27 E28:Q28").SpecialCells(xlBlanks).Value = 0
        On Error GoTo 0
    End If

End If

If Range("W4:W28").Value <> "" Then Range("I4:Q4, C5:Q5 C6:Q6, C7:Q7, C8:Q8, C9:Q9, C10:Q10, C11:Q11, C12:Q12, C13:Q13, C14:Q14, C17:Q17, C18:Q18, C19:Q19, C20:Q20, C21:Q21, C22:Q22, C23:Q23, C24:Q24, C25:Q25, C26:Q26, C27:Q27 C28:Q28").Locked = True

Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.Protect Password:="abac", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub