I have some VBA code that puts symbols & words in a cell, based on the letter in the
cell to the left, when it is clicked on. The code works fine.

My question is: Is there a way to add code, (or do something else) to make my
worksheets "expire / or stop working" on a certain date, or times opened?

My code is below.

Thanks in advance for any help.
Richard


[code]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Const WS_RANGE As String = "A1:BU1450" '<=== change to suit

If Target.Count > 1 Then Exit Sub
If Not Target.Offset(, -1).Value Like "[qwertyui]" Then Exit Sub

Application.EnableEvents = False

If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Offset(, -1).Value
Case "q":
.Font.Name = "arial"
.Value = IIf(.Value = "x", "", "x")
Case "w":
.Font.Name = "Wingdings 2"
.Value = IIf(.Value = "t", "", "t")
Case "e":
.Font.Name = "arial"
.Value = IIf(.Value = "FE", "", "FE")
Case "r":
.Font.Name = "arial"
.Value = IIf(.Value = "RN", "", "RN")
Case "t":
.Font.Name = "arial"
.Value = IIf(.Value = "MN", "", "MN")
Case "y":
.Font.Name = "arial"
.Value = IIf(.Value = "NI", "", "NI")
Case "u":
.Font.Name = "arial"
Select Case .Value
Case "Yes": .Value = "No"
Case "No": .Value = "Maybe"
Case "Maybe": .Value = "Never"
Case "Never": .Value = ""
Case "": .Value = "Yes"
End Select
Case "i":
.Font.Name = "arial"
Select Case .Value
Case "One": .Value = "Two"
Case "Two": .Value = "Three"
Case "Three": .Value = ""
Case "": .Value = "One"
End Select
End Select
.Offset(0, -1).Activate
End With
End If

Application.EnableEvents = True

End Sub

[code]