Sub myCellSheet()
' Standard module code.
' Add a sheet and name it the value of cell A1 from Sheet1.
Sheets.Add.Name = Sheets("Sheet1").Range("A1").Value
' Option, only rename the active sheet a new name,
' found in the cell A1 on Sheet1.
' Un-comment below and comment above to use!
'ActiveSheet.Name = Sheets("Sheet1").Range("A1").Value
' Option, This will re-name the current sheet to a name
' of your choice, by Input Box.
' Un-comment below and comment above to use!
'Dim MySheet
'ActiveSheet.Select
'MySheet = Application.InputBox(prompt:="Rename the current sheet to:", Type:=2)
'ActiveSheet.Name = MySheet
'Range("A1").Select
End Sub
Hope these options help. JSW