Is there a way to name worksheets after Cells?

[ness222]

topic?

 

[Yogi Anand]

Hi ness222:

Welcome to the Board!

If I understand you correctly, Yes! -- you can put the filename in a cell, and then in the Workbook_BeforeSave event, have the procedure read the file name from the cell before saving it.

Regards!
Yogi Anand

 

[Joe Was]

Sub SaveByCell()
Dim sFileName As String
'Cell A1 has the new file name.
sFileName = Sheets("Sheet1").Range("A1")

'If Cell A1 is Blank do not save.
If sFileName = "" Then Exit Sub

'The Drive:Path & the file name in cell A1.
ThisWorkbook.SaveAs "C:MyFilesExcelData" & sFileName
End Sub

Hope this helps?
Note: This is standard module code and you must code the drive and folder for this to work! JSW

 

[Joe Was]

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

 

[ness222]

How would i make it so i can change the value in A1 and then it would update?

 

[ness222]

nevermind i made it so it named the worksheet after a cell in itself and it updats automatically