Naming workbook based on cell content

[Amortcal]

I need the name of a workbook to take the name of a cell each time that cell is changed.

Example, the workbood should be named Test English when cell B5 is English, Test Economics when cell B5 is Economics, Test Accounting when cell B5 is Accounting and so on and so on.

Your help will be appreciated.

[Tom Schreiner]

Just checking to make sure...
The name of the workbook or the worksheet?

To change just the name of the worksheet, use the following code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim NewName As String

If Target.Address = "$B$5" Then

    If Target = "" Then Exit Sub

    NewName = "Test " & Target

    ActiveSheet.Name = NewName

End If

End Sub

To save the entire workbook with the new name use this code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim NewName As String

If Target.Address = "$B$5" Then

    If Target = "" Then Exit Sub

    NewName = "Test " & Target & ".xls"

    ActiveWorkbook.SaveAs ActiveWorkbook.Path & _

    "" & NewName

End If

End Sub

In either case, right-click on the activesheets tab, choose view code, and paste the selected procedure...

Any problems, post again.

Tom