Name a Worksheet Based on a Value in a Cell

When I put the below code in , I get a Microsoft Visual Basic box pop up that says

Run-time error '1004':
Application-defined or object-defined error, then I have the option to end, debug, or help.

Sub bridgeport()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ActiveSheet.Name = Range("S6").Value
Next ws
End Sub

Try:

Sub bridgeport()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ActiveSheet.Name = ws.Range("S6").Value
Next ws
On Error GoTo 0
End Sub