This is the first of a series of blogs containing useful pieces of code.

Adding A New Worksheet into A Workbook

The following piece of code allows you to add a new Worksheet into your Workbook.

Sub NewWorksheet()

    Sheets.Add    End Sub

We can develop this code to allow us to choose a name for our new Worksheet.

Sub NewWorksheetAndName()    Dim strName As String        strName = InputBox("What would you like to name your sheet?")

    Sheets.Add    ActiveSheet.Name = strName    End Sub

We can develop this further to allow us to add the new Worksheet after the last Worksheet in the Workbook.

Sub NewWorksheetAfterLastSheet()    Dim strName As String        strName = InputBox("What would you like to name your sheet?")

    Sheets.Add after:=Sheets(Sheets.Count)    ActiveSheet.Name = strName    End Sub

For more help with Excel VBA, keep an eye on our blog, or come and join us on one of our courses, Introduction to Excel VBA & Advanced Excel VBA.