VBA Adding Serial Numbers

SUBMITTED BY: gamefreak

DATE: June 25, 2019, 4:51 p.m.

FORMAT: Text only

SIZE: 235 Bytes

Raw Download

HITS: 6495

Report

Sub AddSerialNumbers()

Dim i As Integer

On Error GoTo Last

i = InputBox("Enter Value", "Enter Serial Numbers")

For i = 1 To i

ActiveCell.Value = i

ActiveCell.Offset(1, 0).Activate

Next i

Last:Exit Sub

End Sub