|
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
|