Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Dim rng As Range
  3.  
  4. Set rng = Range("A3:A27,B3:B27")
  5. If Target.Value = Chr(254) Then
  6. Target.Value = Chr(168)
  7. Cancel = True
  8. ElseIf Target.Value = Chr(168) Then
  9. Target.Value = Chr(254)
  10. Cancel = True
  11. End If
  12. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement