Help Edit a vba code

A_SIRAT 

Sub tabname()
    Dim ws As Worksheet
    For Each ws In Worksheets
        On Error Resume Next
        Select Case ws.Name
            Case "Exception 1", "Exception 2"
                ' Skip these sheets
            Case Else
                If Len(ws.Range("F3")) > 0 Then
                    ws.Name = Replace(ws.Range("F3").Value, "/", "-")
                End If
                On Error GoTo 0
                If ws.Name <> Replace(ws.Range("F3").Value, "/", "-") Then
                    MsgBox ws.Name & " Was Not renamed, the suggested name was invalid"
                End If
        End Select
    Next ws
End Sub