Change the worksheet name

Change the worksheet name by asking user

Private Sub Workbook_Open()

Dim name As String
name = InputBox("Sheet name, please?")
Sheets(1).Select
ActiveSheet.name = name
Range("A1").Value=name

End Sub