VBA Adding Serial Numbers


SUBMITTED BY: gamefreak

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

FORMAT: Text only

SIZE: 235 Bytes

HITS: 6137

  1. Sub AddSerialNumbers()
  2. Dim i As Integer
  3. On Error GoTo Last
  4. i = InputBox("Enter Value", "Enter Serial Numbers")
  5. For i = 1 To i
  6. ActiveCell.Value = i
  7. ActiveCell.Offset(1, 0).Activate
  8. Next i
  9. Last:Exit Sub
  10. End Sub

loading...

comments powered by Disqus