Rename Every Tab in Workbook

[gheyman]

How can I convert this code so that it steps through each sheet in the workbook and renames them to the Value that is in its Cell "M1"?


Sub RenameTab()
ActiveSheet.name = Range("M1").value
End Sub

 

[Redwolfx]

Try:

Sub RenameTab()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Name = WS.Range("M1").Value
Next WS
End Sub