i got this below code from internet, it works when i put this code in every sheet code page. however what i need is help to modify the code so that by default it works in any opened workbook active sheet, and i do not have to manually paste this code in every window of sheet vba.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Cells.Borders.LineStyle = xlLineStyleNone
ActiveCell.EntireColumn.BorderAround Weight:=xlThick, Color:=RGB(117, 173, 33)
ActiveCell.EntireRow.BorderAround Weight:=xlThick, Color:=RGB(117, 173, 33)