Top 5 Excel Tricks for MIS 📊

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />Cells.Interior.Color = vbWhite<br /><br />Dim ROW_NUMBER As Integer<br />Dim COLUMN_NUMBER As Integer<br /><br />ROW_NUMBER = ActiveCell.Row<br />COLUMN_NUMBER = ActiveCell.Column<br /><br />For I = 1 To COLUMN_NUMBER<br /><br />Cells(ROW_NUMBER, I).Interior.Color = vbBlue<br />Next I<br /><br />For J = 1 To ROW_NUMBER<br /><br />Cells(J, COLUMN_NUMBER).Interior.Color = vbBlue<br />Next J<br />End Sub<br /><br />