Macro needed to name excel tabs based on unique cells within each tab

Hi Ardiko

Try this Code...place the Code in ThisWorkbook Module

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet, ws1 As Worksheet
    Dim sName As Range
    Dim OldValue As String

    Set ws = ActiveSheet
    Set ws1 = Sheets("COMBINED SHEET")
    If Not ws.Name = "Combined Sheet" Then
        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        If Target.Address = "$C$2" Then
            OldValue = ActiveSheet.Name
            ActiveSheet.Name = Target.Cells.Value
            With ws1.Columns(1)
                Set sName = .Find(OldValue, LookIn:=xlValues)
                sName = ActiveSheet.Name
            End With
        End If
    End If

End Sub

Hi Ardiko

To insert the Code into your Workbook:

1. Go into VBA ----> Alt + F11
2. Click on ThisWorkbook in the Left Hand Panel
3. Paste the Code in the Right Hand Panel
4. Exit Vba
5. Save the File as a Macro Enabled File (.xlsm)

I've attached your Sample File with the Code embedded.

You're welcome...glad I could help. Thanks for the Rep.

If this resolves your issue please mark your Thread as SOLVED.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save