Mimic Coloured boxes around precedent cells with VBA

[prograplex]

Hi,

I'm trying to mimic the coloured boxes that appear around precedent cells when you edit a formula. I can use VBA to colour the borders, but I like the style with small boxes on the 4 corners of the range as it allows the colour to be seen even if that cell is selected. Is there any way to choose this style as the border style? Or a way to make a custom border? Or a way to access that kind of bordering on precedent cells?


Thanks for the help.

 

[RickXL]

Hi and welcome to the MrExcel Message Board.

My precedent cells have only one square at the bottom right hand side.

However, you can use a Shape to highlight a cell. I created a shapr called Rectangle 1, gave it the formatting I liked then used this code in the worksheet module to make it highlight the selected cell:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        With Shapes("Rectangle 1")
            .Top = Target.Top
            .Left = Target.Left
            .Width = Target.Width
            .Height = Target.Height
        End With
    End If
End Sub

 

[prograplex]

I was talking more along the lines of this:

Although I guess I could achieve this with newly created shapes. Will give it a try and post my solution if it works.

Thanks