Rename a Sheet

[jn_24]

Hi, I want to rename my Sheet1 to PythonAI and Sheet2 to WebDev
Can you edit the code below for me to not have an error. Thanks!

Private Sub Worksheet_Activate()
Dim LR As Long
LR = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count
Range("A2:C" & LR).Select
Selection.AutoFilter
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("B2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
     Selection.AutoFilter


    Range("C2").Select
    ActiveCell.Formula = "=RANK.AVG(B2,$B$2:$B$28,0)"

    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C" & LR), Type:=xlFillnormal

    Range("C2:C" & LR).Select
     Range("C2").Select

     End Sub

 

[jolivanes]

Your code has no bearing on renaming sheets as far as I can see.
Maybe just explain in a concise manner what you would like to achieve.

 

[Peter_SSs]

Your code has no bearing on renaming sheets as far as I can see.
Maybe just explain in a concise manner what you would like to achieve.

I think the OP simply wants the existing code altered so that it does not throw an error if activated after the sheets have been renamed.

@jn_24
Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.