VBA macro required to change tab name based on cell value

[macca_18380]

Hi All, thank you in advance for your help!

I would like to create a macro which renames a tab based upon the criteria in cell c3, c3 contains text selected via data validation. I have found this macro elsewhere and have entered into VBA for the specific sheet's code for which i'm trying to change the tab name, but when i do so i get a error message that says "compile error: Ambiguous name detected: Worksheet_Change"

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C3")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("C3")
ElseIf Not Intersect(Target.Dependents, Range("C3")) Then
ActiveSheet.Name = ActiveSheet.Range("C3")
End If
End Sub

Any help on resolving this error would be greatly appreciated.

Best regards
Michael

 

[Artik]

You cannot have two procedures with the same name in one module. You must merge the code from both procedures into one.

Artik

 

[mumps]

That error indicates that you have more than one Worksheet_Change macro in your workbook. Excel allows only one Worksheet_Change macro in the sheet code module. You will have to combine them into one macro. Perhaps you can post the other macro and explain in detail what you are trying to do.

 

[macca_18380]

You cannot have two procedures with the same name in one module. You must merge the code from both procedures into one.

Artik

I just merged them and it works, thank you so much!

 

[mumps]

Glad we could help.