Excel Tutorials | Macros Code

Insert Multiple Rows

Sub InsertMultipleRows() Dim i As Integer Dim j As Integer ActiveCell.EntireRow.Select On Error GoTo Last i = InputBox(“Enter number of columns to insert”, “Insert Columns”)

Read More »

Add Serial Numbers

Sub AddSerialNumbers() Dim i As Integer On Error GoTo Last i = InputBox(“Enter Value”, “Enter Serial Numbers”) For i = 1 To i ActiveCell.Value =

Read More »