Ini akan melakukannya
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.LineStyle = xlNone
ActiveCell.Borders.Color = RGB(0, 255, 255)
End Sub
Namun, jika Anda memiliki batas lain di lembar kerja Anda, itu mungkin akan menghapusnya!