Richard,
With SS v3.1.0 I have the same problem as krishnenduray123.
I first explicitely selected Kazaguruma an then tried both "File > Import > Definiton" and Ctrl+V
The code for Regular Samurai #2A and the modified code posted by Matt both works fine!
EDIT:Found the problem. The first 4 lines in krishnenduray123's code has an extra space at the end. If they are removed everything works fine.
What about some code cleaning before entering the code into the grids:
Code:
For ii = 0 To 32
sudoku_code = Replace(Expression:=sudoku_code, Find:=Chr$(ii), Replace:=vbNullString, Start:=1)
Next
sudoku_code = Replace(Expression:=sudoku_code, Find:=Chr$(127), Replace:=vbNullString, Start:=1)
If (Mid$(sudoku_code, 1, 1) = """") Or (Mid$(sudoku_code, 1, 1) = "'") Then
If Mid$(sudoku_code, Len(sudoku_code), 1) = Mid$(sudoku_code, 1, 1) Then sudoku_code = Mid$(sudoku_code, 1, Len(sudoku_code) - 1)
sudoku_code = Mid$(sudoku_code, 2)
End If
If Len(sudoku_code) < min_required_len_sudoku_code Then
Call MsgBox(Prompt:=Replace(MSG_too_little_code_data, "NNN", min_required_len_sudoku_code), Buttons:=vbOKOnly + vbCritical)
Exit
End If
Public Const MSG_too_little_code_data As String = "The sudoku code in the file or the clipboard has less than NNN characters."
_________________
Quis custodiet ipsos custodes?
Normal: [D Y-m-d, G:i] PM->email: [D, d M Y H:i:s]