Sub incriment() Dim num As String Dim str As String Dim i As Long num = InputBox("From 1 to Where?") If num = "" Then Exit Sub If IsNumeric(num) = False Then Exit Sub For i = 1 To CLng(num) str = str & Right(i, 1) Cells(i, 1).NumberFormatLocal = "@" Cells(i, 1).Valu
