VBA Run-time error 13 - Renaming Worksheets from range

[BenGee]

Dim ws As Worksheets

For Each ws In Worksheets
   For z = 2 to 26
     [COLOR=#ff0000]If ws.Name <> "Template" And "Rota" Then[/COLOR]
       ws.Name = Cells(1, z)
     End If
   Next
Next

The red is the offending line. All I'm trying to do is rename each worksheet after each cell in B1:Z1 (There is the same no. Of corresponding worksheets). Any ideas what I'm missing?

Thank you in advance for your help

 

[gallen]

If ws.Name <> "Template" And ws.Name <> "Rota" Then

 

[Fluff]

How about

Sub BenGee()
   Dim Ws As Worksheet
   Dim i As Long
   
   i = 2
   For Each Ws In Worksheets
      If Ws.Name <> "Template" And Ws.Name <> "Rota" Then
         Ws.Name = Sheets("[COLOR=#ff0000]Rota[/COLOR]").Cells(1, i).Value
         i = i + 1
      End If
   Next Ws
End Sub

Change value in red to match the sheet with the new sheet names.

 

[BenGee]

Thank you both. Seems fairly obvious now. Appreciate your help.

Fluff, you truly are a gem. Thank you

 

[Fluff]

Glad we could help & thanks for the feedback