Workshet tab names from Cell names (again)

mnmhenry

Board Regular
Joined
Mar 28, 2002
Messages
169
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.
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
<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?
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,218,891
Messages
6,145,022
Members
450,586
Latest member
hehehihi2007

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top