I use a spreadsheet that needs the borders changed on a daily basis. The following code is designed to reset a particular range of cells to a basic border as shown below. The issue I am having is with my range selection. It gives me the error code 1004 - Method 'Range' of object '_Global' failed. I can't seem to figure out what the problem is and I was hoping someone could help. Thanks

Sub Grid()

    Range( _
        "C4:ED6,C7:ED9,C10:ED12,C13:ED15,C16:ED18,C19:ED21,C22:ED24,C25:ED27,C28:ED30,C31:ED33,C34:ED36,C37:ED39,C40:ED42,C43:ED45,C46:ED48,C49:ED51,C52:ED54,C55:ED57,C58:ED60,C61:ED63,C64:ED66,C67:ED69,C70:ED72,C73:ED75,C76:ED78,C79:ED81,C82:ED84,C85:ED87,C88:ED90,C91:ED93,C94:ED96,C97:ED99,C100:ED102,C103:ED105,C106:ED108,C109:ED111,C112:ED114,C115:ED117,C118:ED120,C121:ED123,C124:ED126,C127:ED129,C130:ED132,C133:ED135,C136:ED138,C139:ED141" _
        ).Select
    
        
    
        
        
        
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub