Vba all round border code

[ipbr21054]

Hi,
Can you advise please why the border around the whole cell isnt applied when i past a value please.

    Target.Interior.Color = vbGreen
    Else
    Target.Interior.Color = vbRed
    End If
    With ActiveSheet.Range("E4:E28")
        .Font.Size = 11
        .Font.Bold = True
        .Font.Color = vbBlack
        .Font.Name = "Calibri"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        Range("E4:E28").BorderAround xlContinuous, xlThin
        Range("E4:E28").NumberFormat = "@"
    End With
    Application.ScreenUpdating = True

End Sub

 

[MARK858]

I'll have a look at your other post but no guarantees as I am in the middle of doing some proper work and just looking in to get a breather from it.

Btw I have edited one of the codes to show what you would have to do for diagonals.