[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] a_david()
[COLOR=darkblue]Dim[/COLOR] i%
[COLOR=darkblue]Dim[/COLOR] lbsp$
Dim nplbslg$
nplbslg = "618269808440677265824051574144515141"
[COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] Len(nplbslg) [COLOR=darkblue]Step[/COLOR] 2
lbsp = lbsp & Chr(Val(Mid(nplbslg, i, 2)))
[COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]With[/COLOR] Range("A1")
.Formula = lbsp
[COLOR=darkblue]With[/COLOR] .Font
.Name = "Wingdings"
.Size = 10
.Bold = [COLOR=darkblue]True[/COLOR]
.ColorIndex = 5
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
.Columns.AutoFit
.Value = .Value
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
ActiveWindow.Zoom = 400
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]