Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
renaming worksheet with cell contents
I used this code on the worksheet (found it on this site, I think)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value Exit Sub End If InvalidName: MsgBox "Invalid sheet name." End Sub which worked great when I did it, renaming the sheet to the content of O2. I've just opened it today, and although valid names work, and invalid names call the error message, any change to any other cell also calls the error message. What's going on? thanks, Andy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
renaming worksheet with cell contents
Because your using the worksheet change event then any change to the
worksheet is calling the macro. You could put a button on your sheet and use this to call your name change macro. "foilfencingandy" wrote: I used this code on the worksheet (found it on this site, I think) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value Exit Sub End If InvalidName: MsgBox "Invalid sheet name." End Sub which worked great when I did it, renaming the sheet to the content of O2. I've just opened it today, and although valid names work, and invalid names call the error message, any change to any other cell also calls the error message. What's going on? thanks, Andy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
renaming worksheet with cell contents
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value End If Exit Sub InvalidName: MsgBox "Invalid sheet name." End Sub should fix that. You have the exit sub in the wrong place. With it in your IF statement, if you don't meet the IF condition, you always go through the error handler. -- Regards, Tom Ogilvy "foilfencingandy" wrote: I used this code on the worksheet (found it on this site, I think) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value Exit Sub End If InvalidName: MsgBox "Invalid sheet name." End Sub which worked great when I did it, renaming the sheet to the content of O2. I've just opened it today, and although valid names work, and invalid names call the error message, any change to any other cell also calls the error message. What's going on? thanks, Andy |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
renaming worksheet with cell contents
That's brilliant, thanks. :-)
"Tom Ogilvy" wrote: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value End If Exit Sub InvalidName: MsgBox "Invalid sheet name." End Sub should fix that. You have the exit sub in the wrong place. With it in your IF statement, if you don't meet the IF condition, you always go through the error handler. -- Regards, Tom Ogilvy "foilfencingandy" wrote: I used this code on the worksheet (found it on this site, I think) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Me.[o2], Target) Is Nothing Then On Error GoTo InvalidName Me.Name = Target.Value Exit Sub End If InvalidName: MsgBox "Invalid sheet name." End Sub which worked great when I did it, renaming the sheet to the content of O2. I've just opened it today, and although valid names work, and invalid names call the error message, any change to any other cell also calls the error message. What's going on? thanks, Andy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Refer to a worksheet/name using cell contents? | Excel Worksheet Functions | |||
Renaming tabs from particular cell contents | Excel Worksheet Functions | |||
Use of the Contents of a cell as a worksheet name in a function | Excel Worksheet Functions | |||
Reflect cell contents into another worksheet | Excel Discussion (Misc queries) | |||
Using contents of cell to refer to a worksheet | Excel Programming |