Modify cell format in VBA using WorksheetChange problem

[totalnatal]

Hello,

I have the following lines of code which occur if a certain cell in the worksheet equals a certain value . However, the problem is if that cell in question does not equal that value then the changes done before when the lines were run have not been taken out and remain. Is there anyway to do something like . If Cell(X:X) = Criteria Then Change those cells format, Else keep original formatting. Thanks!

If Worksheets("Settings").Cells(4, 2).Value = "Outperformance Note" Then
With Worksheets("Settings").Range("a8:b13").Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
With Worksheets("Settings").Range("a8:b14").Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic

End With
End With

End If

 

[AlphaFrog]

Maybe try something like this...

    With Worksheets("Settings")
        If .Cells(4, 2).Value = "Outperformance Note" Then
            With .Range("A8:B13").Borders(xlDiagonalDown)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Range("A8:B14").Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
[COLOR="Red"]        Else
            .Range("A8:B13").Borders(xlDiagonalDown).LineStyle = xlNone
            .Range("A8:B14").Borders(xlDiagonalUp).LineStyle = xlNone[/COLOR]
        End If
    End With