activecell hightlight with bold text : ok. with yellow borders: not ok: not restored to before

hi Littlepete,

There is no worksheet OnExit event but try

Option Explicit
Dim PrevCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not PrevCell Is Nothing Then
        With PrevCell
            .Font.Bold = False
            'PrevCell.BorderAround LineStyle:=xlNone, Weight:=xlThin, ColorIndex:=xlNone
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).LineStyle = xlNone
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlEdgeRight).LineStyle = xlNone
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With
    End If
    With Target
        .Font.Bold = True
        .BorderAround ColorIndex:=5, Weight:=xlThick
    End With
    'Target.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
    Set PrevCell = Target
End Sub

Where do you give PrevCell a value?

I think I'm not wrong if I say that the selected cell border color simply cannot be adjusted since there is no such option in Excel. It will always have the color given by the theme of the operating system. You can see the border change color only after changing cell. I suggest focusing on the background color and bold font to highlight the activecell.

Hi,

Not to sure what is meant to happen but are these two line counterintuitive?

why bold when you cant see it.

Selection.Cells.Font.Color = RGB(255, 255, 255)

Target.Font.Bold = True

Quote from littlepete

i noticed that, but it works for the putting text in bold. so i'm not changing anything, trying to add yellow borders...

Was that a response to my question. If it doesn't have a value(i.e. a range) then it cannot affect your code so it's nonsense not to change it or remove it!

You will probably find that the selected cell does get a yellow border but that border is not visible while the cell is selected because excel has a black border to show the selected cell. Fill does work and show though.

Attached is a file to do what you want, but with a yellow fill rather than a yellow border. The address of your previous selection is stored in Cell F1 which has the Defined Name "PrevADD" (you can use any cell on your sheet which is not being used and name it "PrevAdd", if you set the font colour of that cell to be the same as the cell fill colour then the text will not be visible).

Bold font and yellow fill will be applied to any selected cell that is not empty, you can further refine the code to work only on particular columns or rows, or on a specified range.

The code in the sheet Object Module is

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Set r = Range([PrevAdd])
    
    With r
        .Font.Bold = 0
        .Interior.Color = xlNone
    End With
    If Target.Address <> [PrevAdd].Address Then
        If Target <> "" Then
                With Target
                    .Font.Bold = 1
                    .Interior.Color = vbYellow
                End With
            [PrevAdd] = Target.Address
        End If
    End If
    
End Sub