Workshet tab names from Cell names (again)

[mnmhenry]

Sorry Guys I fell a bit flat on this question the other day and I'd like to try again. I would like a macro that will rename a worksheet tab with the name I have in cell A1.

Thanks again.

 

[dk]

<pre>
Sub RenameSheet()
On Error Resume Next
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub
</pre>

This will rename the active sheet to whatever is in cell A1. Is that what you want?

 

[mnmhenry]

Yes thankyou very much. This will get me started.

 

[mnmhenry]

Is there a way to rename sheet2 with the details in Cell A2 on the same sheet ??

 

[Carl B]

Right click on the first tab (Sheet1), select view code, then place this paste this in.
Sub tabname()
Dim ws As Worksheet
Dim MyRow As Integer

MyRow = 1
For Each ws In Worksheets
ws.Activate
ws.Name = Cells(MyRow,1).Value
MyRow = MyRow + 1
Next
End Sub