VBA code needed to hide worksheet based on cell value

[MAS59]

I am new to VBA at the age of 62 and I am trying to teach myself VBA. I have a project that I am working on. The file has a single "interface" worksheet and the other 40 worksheets will have either a "Yes" or a "No" in cell A2. If A2 = "No" I want to hide the worksheet. I currently have code that loops through each worksheet to change the worksheet name based on the value in A1.

Sub RenameSheets()

For i = 1 To Sheets.Count
  
    Sheets(i).Activate
    ActiveSheet.Name = ActiveSheet.Range("a1").Value
   
Next i
      
Sheets(2).Activate

End Sub

What do I need to add?

 

[Zot]

You can do rename and hide in a single loop. Note the way to loop every sheet in workbook.
Most of the time you do not need to activate the sheet or range to copy if it is defined/declared.. In this case during loop the ws is already the selected sheet (or defined sheet).

Sub RenameHide()

Dim ws As Worksheet

For Each ws In Sheets
    ws.Name = ws.Range("A1")
    If ws.Range("A2") = "No" Then
        ws.Visible = xlSheetHidden
    End If
Next

End Sub

In you code, you can just write it as

For i = 1 To Sheets.Count
    Sheets(i).Name = ActiveSheet.Range("a1").Value
Next i

 

[MAS59]

Perfection! Thanks for the code and the quick response. Also the teaching moment. Old dog and new tricks! I love it.

 

[Zot]

Perfection! Thanks for the code and the quick response. Also the teaching moment. Old dog and new tricks! I love it.

Thanks for update