6 lines
163 B
QBasic
6 lines
163 B
QBasic
Attribute VB_Name = "CROSS"
|
|
Sub CROSS(ByVal Target As Range, Cancel As Boolean)
|
|
If UCase(Target) = "x" Then Target = "" Else Target = "x"
|
|
Cancel = True
|
|
End Sub
|