Has anyone tried to apply Baudot Code to any of this? Baudot is a 5 bit character cipher (5 points to a star). Also look at the inventors documentation…
https:// www.dcode.fr/baudot-code
Sorry. I admit that I did not read the whole thread. I did now. I think Baudot is significant. The NSA posted a document entitled "Candle in the Dark" on February 2nd. It is a historical record of Baudot code collection and deciphering during the cold war. I think the timing of the article, content, and title all mean something. I've tried several code repetitions in various decoders and they have all turned out to be gibberish. But then again, we may not have the right key or offset. AND Q does post what I see as gibberish sometimes, so who knows?
Q says "think mirror alot". Binary is read right to left. Don't forget that. Although Baudot's original documentation has it reading left to right, there are variances that read right to left or LSB 1st.
I wrote an Excel Macro to help me decipher. The program repeats the digits in 5 bit groups and starts over. So…
When Q posts + ++ +++, the code will do this…
+-++- | +++-+ | -++-+ | ++-+- | ….. and so on.
It also contains a think mirror checkbox. This will repeat the code backwards (or most significant digit first). It will decipher in two different key sets.
Perhaps some codefags want to take a look and help develop. It needs a key function added so that it can not only decipher the baudot but decrypt if there is encryption on top of the binary. I need help with it. I think there is something to it.
I can't attach the candle in the dark pdf so here is the link:
https:// www.nsa.gov/about/cryptologic-heritage/historical-figures-publications/publications/coldwar/assets/files/candle-in-dark.pdf
I can't post the excel Macro either. I'll post the code directly.
Sub runit()
Application.ScreenUpdating = False
On Error GoTo endit
Dim code As String
code = CStr(ActiveSheet.Range("h6").Value)
'code = "+++-++-+-"
'code = "-+-++-+++-"
Dim character As Integer
Dim maxlength As Integer
Dim currentString As String
Dim thinkMirror As Boolean
If ActiveSheet.Range("h1").Value = True Then
thinkMirror = True
Else
thinkMirror = False
End If
currentString = ""
Dim rowNumber As Double
Dim columnNumber As String
Dim loopcount As Double
rowNumber = 2
columnNumber = "B"
If thinkMirror = False Then
character = 1
Else
character = Len(code)
End If
loopcount = 0
Do While rowNumber < 64
currentString = currentString & Mid(code, character, 1)
If thinkMirror = False Then
character = character + 1
Else
character = character - 1
End If
If Len(currentString) >= 5 Then
ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = currentString
rowNumber = rowNumber + 1
currentString = ""
End If
If thinkMirror = False Then
If character Len(code) Then
character = 1
End If
Else
If character = 0 Then
character = Len(code)
End If
End If
loopcount = loopcount + 1
'MsgBox (CStr(rowNumber) & " " & CStr(character) & currentString)
Loop
If Range("I1").Value = True Then
Call convertitOld
Else
Call ConvertItNew
End If
End
endit:
Application.ScreenUpdating = True
MsgBox ("Error!")
End Sub
Sub convertitOld()
On Error GoTo endit
Dim columnNumber As String
Dim numberColumn As String
Dim hexColumn As String
Dim rowNumber As Integer
Dim letterNumber As Integer
Dim writeColumn
writeColumn = "C"
columnNumber = "B"
numberColumn = "d"
hexColumn = "E"
letterNumber = 0
rowNumber = 2
Do While ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value <""
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "?"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = ""
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = ""
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+—-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "A"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–++-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "B"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-++-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "C"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++++-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "D"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+—" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "E"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++—" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "E'"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+++-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "F"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+-+-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "G"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++-+-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "H"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++–" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "I"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+–+-" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "J"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+–++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "K"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++-++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "L"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+-++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "M"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "N"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++–" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "O"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "P"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Q"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–+++" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "R"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–+-+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "S"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+-+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "T"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+–" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "U"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++-+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "V"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++-+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "W"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+–+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "X"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–+–" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Y"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++–+" Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Z"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = letterNumber + 1
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = Hex(letterNumber + 1)
End If
letterNumber = letterNumber + 1
rowNumber = rowNumber + 1
letterNumber = 0
Loop
End
endit:
Application.ScreenUpdating = True
MsgBox ("Error!")
End Sub
Sub ConvertItNew()
On Error GoTo endit
Dim columnNumber As String
Dim numberColumn As String
Dim hexColumn As String
Dim rowNumber As Integer
Dim letterNumber As Integer
Dim upperCase As Boolean
Dim writeColumn
writeColumn = "C"
columnNumber = "B"
numberColumn = "d"
hexColumn = "E"
letterNumber = 0
rowNumber = 2
Do While ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value <""
If Range("a1").Value = True Then
upperCase = True
Else
upperCase = False
End If
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "…"
ActiveSheet.Range(numberColumn & CStr(rowNumber)).Value = ""
ActiveSheet.Range(hexColumn & CStr(rowNumber)).Value = ""
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "—++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "A"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "_"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++–+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "B"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "?"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "C"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ":"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+–+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "D"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "$"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "—-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "E"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "3"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "F"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "!"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++-+-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "G"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "&"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+–" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "H"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "#"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "I"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "8"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+-++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "J"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "'"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "K"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "("
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+–+-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "L"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ")"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++–" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "M"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "."
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++–" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "N"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ","
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++—" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "O"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "9"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "P"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "0"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Q"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "1"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+-+-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "R"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "4"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–+-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "S"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "BELL"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+—-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "T"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "5"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "–+++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "U"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "7"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "V"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ";"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+–++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "W"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "2"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "X"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "/"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Y"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "6"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+—+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Z"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "''"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++++" Then
upperCase = True
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++-++" Then
upperCase = False
End If
If upperCase = True Then
Range("a1").Value = True
Else
Range("a1").Value = False
End If
rowNumber = rowNumber + 1
letterNumber = 0
Loop
End
endit:
Application.ScreenUpdating = True
MsgBox ("Error!")
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 2 Then
If Not Intersect(Target, Range("h8:h100")) Is Nothing Then
ActiveSheet.Range("h6").Value = Target.Value
'MsgBox ("it works")
End If
End If
End Sub