Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add a new Sheet

Sub AddNew_Sheet()     Dim myWorksheet As Worksheet     Dim myWorksheetName As String         myWorksheetName = "MyName"         Sheets.Add.Name = myWorksheetName         Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)         Sheets("Sheet1").Range("A1:A5").Copy _             Sheets(myWorksheetName).Range("A1") End Sub