Create font sheets to ID symbols by number in Unicode
Excel generates grids with fonts and number blow to print from 10 to 65535- Attribute VB_Name = "FontSheets" Sub GenerateUnicode () Dim I As Long Dim Row As Integer Dim col As Integer Const ColWidth = 16 ''max columns Row = - 1 Sheet1.Range ( "A:P" ). ColumnWidth = 4.8 For I = 10 To Int ( "&HFFFD" ) If I Mod ColWidth = 0 Or I = 10 Then Row = Row + 2 ''next row every 15 characters col = 0 ''Font cells format SetCountFormat Sheet1.Range ( Cells ( Row + 1 , 1 ), Cells ( Row + 1 , ColWidth )) SetFontFormat Sheet1.Range ( Cells ( Row , 1 ), Cells ( Row , ColWidth )) End If col = I Mod ColWidth + 1 Sheet1.Cells ( Row , col ). Value = ChrW ( I ) ''Call to insert unicode character Sheet1.Cells ( Row + 1 , col ) = I ''respective numbe