Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2019
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. Private Sub Worksheet_SelectionChange(ByVal rngSel As Range)
  2. Set rngTable = [I2:K17]
  3. If rngSel.Count > 1 Or Intersect(rngSel, rngTable) Is Nothing Then End
  4. For Each rngCell In rngTable
  5. rngCell.Interior.ColorIndex = IIf(rngCell.Value = rngSel.Value, 27, -4142)
  6. Next
  7. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement