Good All below code to format individual character it works but does not work with last format so I added 1 total cell content (Len(TXT)+1), but not useful
thanks
Public Sub TXTFrmt()
Dim WB As Workbook: Set WB = ThisWorkbook
Dim WS As Worksheet: Set WS = ActiveSheet ' WB.Worksheets(1)...