Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Create a new sheet with month name and year as its name

Sub Add_Sheet()     Dim myWorksheet As Worksheet     Dim myWorksheetName As String     myWorksheetName = Format(Now, "mmmm_yyyy")     For Each myWorksheet In Worksheets         If myWorksheet.Name = myWorksheetName Then             MsgBox "Sheet already exists...Make necessary " & _                 "corrections and try again."             Exit Sub         End If     Next myWorksheet         Sheets.Add.Name = myWorksheetName         Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)         Sheets("Sheet1").Range("A1:A5").Copy Sheets(myWorksheetName).Range("A1") End Sub