Isso fará isso
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.LineStyle = xlNone
ActiveCell.Borders.Color = RGB(0, 255, 255)
End Sub
No entanto, se você tiver outras bordas em sua planilha, elas provavelmente serão removidas.