[SOLVED] code exceeds max. # of characters per line

How do i start a new line of code if i exceed the max. # of characters?

here is my code: i did to continue the Range to a new line.

Sub ClearForm()
    ActiveSheet.Unprotect Password:="pec123"
    Range("D1:G5,C7:AC8,D11:D14,D22:D25,D33:D36,D44:D47,D55:D58,D66:D69,D77:D80,D88:D91,D99:D102,D110:D113,D121:D124,D132:D135,D143:D146,D154:D157,D165:D168,H11:Z171,AB17,AB28,AB39,AB50,AB61,AB72,AB83,AB94,AB105,AB116,AB127,AB138,AB149,AB160,AB171").Select
    Selection.ClearContents
    ActiveSheet.Protect Password:="pec123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

If this range is static you could create a named range and use that....

Another solution something like

Sub ClearForm()
    ActiveSheet.Unprotect Password:="pec123"
    Union(Range("D1:G5,C7:AC8,D11:D14,D22:D25,D33:D36,D44:D47,D55:D58,D66:D69,D77:D80,D88:D91,D99:D102,D110:D113,D121:D124,D132:D135,D143:D146,D154:D157,D165:D168"), _
    Range("H11:Z171,AB17,AB28,AB39,AB50,AB61,AB72,AB83,AB94,AB105,AB116,AB127,AB138,AB149,AB160,AB171")).ClearContents
    ActiveSheet.Protect Password:="pec123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

or

Sub ClearForm()
    ActiveSheet.Unprotect Password:="pec123"
    Range("D1:G5,C7:AC8,D11:D14,D22:D25,D33:D36,D44:D47,D55:D58,D66:D69,D77:D80,D88:D91,D99:D102,D110:D113,D121:D124,D132:D135,D143:D146,D154:D157,D165:D168").ClearContents
    Range("H11:Z171,AB17,AB28,AB39,AB50,AB61,AB72,AB83,AB94,AB105,AB116,AB127,AB138,AB149,AB160,AB171").ClearContents
    ActiveSheet.Protect Password:="pec123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                      , AllowFiltering:=True
End Sub

Note that you don't have to select the range

Something like this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, _
                 Union(Range("H12:Z12,H16:Z16,H23:Z23,H27:Z27,H34:Z34,H38:Z38,H45:Z45,H49:Z49,H56:Z56,H60:Z60"), _
                       Range("H67:Z67,H71:Z71,H78:Z78,H82:Z82,H89:Z89,H93:Z93,H100:Z100,H104:Z104,H111:Z111,H115:Z115"), _
                       Range("H122:Z122,H126:Z126,H133:Z133,H137:Z137,H144:Z144,H148:Z148,H155:Z155,H159:Z159"))) _
                       Is Nothing Then
        Exit Sub
    End If
    Dim r As Range
    Set r = Range("AO1:AO8").Find(Target)
    If r Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = r(1, 2)
    Application.EnableEvents = True
End Sub

However my personal preference would be to declare a variable of type range that will hold reference to the range in question