Sub Macro1()
Dim sheetcount
sheetcount = ActiveWorkbook.Sheets.Count
On Error Resume Next
For i = 2 To sheetcount:
ActiveWorkbook.Sheets(i).Name = ActiveWorkbook.Sheets(i).Range(C1).Value
Next
ActiveWorkbook.Save
End Sub
It doesnt work and when I click save it adds activeworksheet.save after end sub
Itried running it. Nothing happened and I expected the tab names to change
New contributor
Natalie is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.