Sub CreateNewSheet()
'
' CreateNewSheet Macro
'
'
Sheets("New").Visible = True
Sheets("New").Select
Sheets("New").Copy Before:=Sheets(1)
Sheets("New").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("New (2)").Select
Sheets("New (2)").Name = Sheets("Home").Range("A2").Value
End Sub