Tab Name based on Cell Value

[excelnoobhere]

I have the following code that looks at AC1 and renames the tabs in the entire workbook based on the cell value and if there is no name or any unacceptable characters it gives an error message. I want this to happen only for the active sheet and not to loop through each sheet. I know it is just a one line change but I'm not sure how. I would still like to keep all the error checking and messages.
thanx in advance

Sub tabname()Dim ws As Worksheet
For Each ws In Worksheets
    On Error Resume Next
    If Len(ws.Range("AC1")) > 0 Then
        ws.Name = ws.Range("AC1").Value
    End If
    On Error GoTo 0
    If ws.Name <> ws.Range("AC1").Value Then
        MsgBox ws.Name & " The sheet was Not renamed, the suggested name was invalid"
    End If
Next
End Sub

 

[Fluff]

How about

Sub tabname()
   Dim ws As Worksheet
   Set ws = ActiveSheet
    On Error Resume Next
    If Len(ws.Range("AC1")) > 0 Then
        ws.Name = ws.Range("AC1").Value
    End If
    On Error GoTo 0
    If ws.Name <> ws.Range("AC1").Value Then
        MsgBox ws.Name & " The sheet was Not renamed, the suggested name was invalid"
    End If
End Sub

 

[excelnoobhere]

How about

Sub tabname()
   Dim ws As Worksheet
   Set ws = ActiveSheet
    On Error Resume Next
    If Len(ws.Range("AC1")) > 0 Then
        ws.Name = ws.Range("AC1").Value
    End If
    On Error GoTo 0
    If ws.Name <> ws.Range("AC1").Value Then
        MsgBox ws.Name & " The sheet was Not renamed, the suggested name was invalid"
    End If
End Sub

that worked perfectly, Thank you

 

[DanteAmor]

Try this

Sub tabname()
    Dim ws As Worksheet, NewName As String, exists As Boolean
    
    NewName = ActiveSheet.Range("AC1").Value
    If NewName = "" Then
        MsgBox "There is no sheet name in AC1"
        Exit Sub
    End If
    '
    'Verify if a sheet with the new name already exists
    exists = False
    For Each ws In Worksheets
        If LCase(ws.Name) = LCase(NewName) Then
            exists = True
            Exit For
        End If
    Next
    '
    If exists = False Then
        ActiveSheet.Name = NewName
    Else
        MsgBox ActiveSheet.Name & " The sheet was Not renamed, the suggested name was invalid"
    End If
End Sub

 

[Fluff]

that worked perfectly, Thank you

You're welcome & thanks for the feedback

 

[excelnoobhere]

Try this

Sub tabname()
    Dim ws As Worksheet, NewName As String, exists As Boolean
    
    NewName = ActiveSheet.Range("AC1").Value
    If NewName = "" Then
        MsgBox "There is no sheet name in AC1"
        Exit Sub
    End If
    '
    'Verify if a sheet with the new name already exists
    exists = False
    For Each ws In Worksheets
        If LCase(ws.Name) = LCase(NewName) Then
            exists = True
            Exit For
        End If
    Next
    '
    If exists = False Then
        ActiveSheet.Name = NewName
    Else
        MsgBox ActiveSheet.Name & " The sheet was Not renamed, the suggested name was invalid"
    End If
End Sub

this also worked thank you

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.