#9 – Highlight Spelling Mistakeįor Each MySelection In ActiveSheet.UsedRange #8 – Insert Blank Row After Every Other RowĬode: Sub Insert_Row_After_Every_Other_Row()ĭim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selectionįor this, first, you need to select the range where you would like to insert alternative blank rows. It will delete all the blank worksheets from the workbook we are working on. If WorksheetFunction.CountA(ws.UsedRange) = 0 ThenĪpplication.ScreenUpdating = True End Sub #7 – Delete All Blank Worksheets From the WorkbookĪpplication.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets Just specify the number in the input box and click on “OK.” It will insert those many sheets immediately. It will ask you to enter the number of worksheets you would like to insert. If ShtCount = False Then Exit Sub Else For i = 1 To ShtCount ShtCount = Application.InputBox("How Many Sheets you would like to insert?", #6 – Insert Worksheets as Much as You want It will insert serial numbers from 10 to 1 from the top. It will insert serial numbers from 1 to 20 from the bottom. It will insert serial numbers from 1 to 10 from the top. Let’s see each of these examples in detail. Delete All Blank Worksheets From the Workbook.Source: VBA Examples () List of Top 19 Examples
#Visual basic for excel command list how to
You are free to use this image on your website, templates, etc, Please provide us with an attribution link How to Provide Attribution? Article Link to be Hyperlinked #19 – Find the Last Used Column in the Sheet.#18 – Find the Last Used Row in the Sheet.#12 – Highlight All the Commented Cells.#11 – Change All To Lower Case Characters.#10 – Change All To Upper Case Characters.#8 – Insert Blank Row After Every Other Row.#7 – Delete All Blank Worksheets From the Workbook.#6 – Insert Worksheets as Much as You want.#2 – Insert Different Color Index in VBA.