Renaming Worksheets Using Reference

[edhead4]

I know there are a few posts on this but from the one's I've seen, this is unique...

I have a database that I'm running reports from. I am trying to create a macro that will create a new sheet and name it based on a new value in the new sheet. Here's what it will do:

1. Copy data from current sheet
2. Create a new sheet and paste the data into it
3. change the cell linking the sheet to my master database so that the new sheet shows the new values
4. Rename the new sheet based onthe new value in the linking cell.

I'm okay until the renaming part. I can't get the macro to link to the newly created sheet in order to pick the right value. My macro is in shambles right now, otherwise I would paste it. Any help is greatly appreciated!

thanx!

 

[Joe Was]

Private Sub Worksheet_Change(ByVal Target As Range)
'Sheet Module code, like: Sheet1!
Dim myAddress As String

myAddress = "$B$3"

If Target.Address = myAddress And Range("B3").Value <> "" Then
Range("B3").Select
ActiveSheet.Name = Range("B3").Value
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ThisWorkbook module code!
Dim myAddress As String
Dim myName As String

myAddress = "$B$3"

If Worksheets(1).Range("B3").Value <> "" Then
Worksheets(1).Range("B3").Select
myName = Selection.Value
Worksheets(1).Name = myName
End If
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'ThisWorkbook module code!
Dim myAddress As String
Dim myName As String

myAddress = "$B$3"

If Worksheets(1).Range("B3").Value <> "" Then
Worksheets(1).Range("B3").Select
myName = Selection.Value
Worksheets(1).Name = myName
End If
End Sub