Snasui Excel Forum

Code: Select all

Sub RemoveLayer()
Dim i As Integer
For i = 0 To 10
Range("C15").Offset(i * 7, 0).Activate
        If Selection.Value <> i + 1 Then
        Range("A13:AP19").Offset(i * 7, 0).Select
        With Selection.Interior
            Selection.ClearContents
            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
        .Pattern = False
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        Selection.FormatConditions.Delete
        ActiveSheet.ClearCircles
        Selection.UnMerge
    End If
Next i
End Sub