Excel Sheet name Change Macro Code

Your renaming plan isn't sufficiently precise because it doesn't include a schedule what to do after the sheet has been renamed and the condition that triggered its renaming doesn't hold true any longer. The code below fills this gap by returning the sheet to its original name.

Sub Button1_Click()
'    Sheet5.Visible = IIf(Range("Class").Value < 3, xlSheetVeryHidden, xlSheetVisible)
    
    Const OriginalName As String = "TestSheet"
    Const NewName As String = "Other Name"
    
    With Sheet5
        If Range("Class").Value < 3 Then
            .Name = NewName
            .Columns("B:D").Hidden = True
        Else
            .Name = OriginalName
            .Columns("B:D").Hidden = False
       End If
    End With
End Sub

Please assign the names you want to the constants OriginalName and NewName. You can also change the sheet that the action is taken on. Bear in mind that Sheet5 is a CodeName.