SD Card Recovery ----How to Recover Lost Files from SD Card?: Change Macro To change the name of one sheet [Anwsered]

Change Macro To change the name of one sheet

Hi I got the following macro from this community (thank you again), it adds the word "old" to all the worksheet names of all the files in a folder. I want to change it slightly so that only the worksheet with the name "Week 41" will be changed to "Week41
Ver1", and if the Workbook does not contain such a worksheet it must just close without saving.

This is the Macro

Sub RenameSheets()
    Dim strFolder As String
    Dim strFile As String
    Dim wbk As Workbook
    Dim i As Long
    With Application.FileDialog(4) ' msoFileDialogFolderPicker
        ' Show dialog
        If .Show Then
            ' Assign selected folder to variable
            strFolder = .SelectedItems(1)
        Else
            Beep
            Exit Sub
        End If
    End With
    ' Append \ if necessary
    If Right(strFolder, 1) <> "\" Then
        strFolder = strFolder & "\"
    End If
    On Error GoTo ErrHandler
    ' Turn off screen updating and event handling
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ' Get first file name in folder
    strFile = Dir(strFolder & "*.xls*")
    ' Loop
    Do While strFile <> ""
        ' Open workbook
        Set wbk = Workbooks.Open(Filename:=strFolder & strFile)
        ' Loop through sheets except first one
        For i = 2 To wbk.Worksheets.Count
            With wbk.Worksheets(i)
                ' Append " Old" to sheet name
                .Name = .Name & " Old"
            End With
        Next i
        ' Close and save workbook
        wbk.Close SaveChanges:=True
        ' Get next file name
        strFile = Dir
    Loop
ExitHandler:
    ' Turn on screen updating and event handling
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

Thank You for the help

Es

Solutions to the Problem Change Macro To change the name of one sheet

Download SmartPCFixer for Free Now

How to Avoid Downloading Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.

Another Safe way to Repair the Problem: Change Macro To change the name of one sheet:

How to Fix Change Macro To change the name of one sheet with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your system. Run it, and it will scan your computer. The junk files will be shown in the scan result.