how do i create a macro to rename worksheets in excel?

I have a list of loan numbers that I want to use to rename worksheet tabs,
any way to do that?

I have used the following previously:-
Sub Rename()
Sheets("old name").Select
Sheets("old name").Name = "new name"
End Sub

Hope this helps

"Waki" wrote:

> I have a list of loan numbers that I want to use to rename worksheet tabs,
> any way to do that?

Thanks, but I'm new to VB...I'm going to need a little more help.

"Pank Mehta" wrote:

> I have used the following previously:-
> Sub Rename()
> Sheets("old name").Select
> Sheets("old name").Name = "new name"
> End Sub
>
> Hope this helps
>
> "Waki" wrote:
>
> > I have a list of loan numbers that I want to use to rename worksheet tabs,
> > any way to do that?

Hi Waki

the first approach assumes that you don't have the sheets in your workbook
yet and will add the sheet in and name it from your list of loan numbers
....(instructions on using the code are at the bottom)
Assuming your loan numbers are in the range A2:A10 inclusive
Sub newws()
Dim arr As Variant
arr = Range("a2:a10").Value
For i = LBound(arr) To UBound(arr)
Set NewSheet = Sheets.Add
NewSheet.Name = arr(i, 1)
Next i
End Sub

--------- this second option assumes that you have all the sheets in the
workbook and you want to name them as per the list in A2:A10

Sub namesheets()
Dim arr As Variant
arr = Range("a2:a10").Value
For i = LBound(arr) To UBound(arr)
Sheets(i + 1).Activate
Sheets(i).Name = arr(i,1)
Next i
End Sub

-------

to use either of the above, right mouse click on a sheet tab and choose view
code
this will display the VBE Window
choose insert / module from the menu and you'll get a piece of white paper
on the right hand side of the screen
copy and paste the code above from the word sub to the words end sub into
the right hand side of the screen
press ALT & F11 to return to your workbook
ensure your loan numbers are in cells A2:A10 of the sheet you're viewing and
choose tools / macro / macros from the menu
choose either namesheets or newws as appropriate and click on the run button

hope this helps
Cheers
JulieD

"Waki" <[email protected]> wrote in message
news:[email protected]...
>I have a list of loan numbers that I want to use to rename worksheet tabs,
> any way to do that?

Thanks!!!!!

"JulieD" wrote:

> Hi Waki
>
> the first approach assumes that you don't have the sheets in your workbook
> yet and will add the sheet in and name it from your list of loan numbers
> ....(instructions on using the code are at the bottom)
> Assuming your loan numbers are in the range A2:A10 inclusive
> Sub newws()
> Dim arr As Variant
> arr = Range("a2:a10").Value
> For i = LBound(arr) To UBound(arr)
> Set NewSheet = Sheets.Add
> NewSheet.Name = arr(i, 1)
> Next i
> End Sub
>
> --------- this second option assumes that you have all the sheets in the
> workbook and you want to name them as per the list in A2:A10
>
> Sub namesheets()
> Dim arr As Variant
> arr = Range("a2:a10").Value
> For i = LBound(arr) To UBound(arr)
> Sheets(i + 1).Activate
> Sheets(i).Name = arr(i,1)
> Next i
> End Sub
>
> -------
>
> to use either of the above, right mouse click on a sheet tab and choose view
> code
> this will display the VBE Window
> choose insert / module from the menu and you'll get a piece of white paper
> on the right hand side of the screen
> copy and paste the code above from the word sub to the words end sub into
> the right hand side of the screen
> press ALT & F11 to return to your workbook
> ensure your loan numbers are in cells A2:A10 of the sheet you're viewing and
> choose tools / macro / macros from the menu
> choose either namesheets or newws as appropriate and click on the run button
>
> hope this helps
> Cheers
> JulieD
>
> "Waki" <[email protected]> wrote in message
> news:[email protected]...
> >I have a list of loan numbers that I want to use to rename worksheet tabs,
> > any way to do that?
>
>
>

you're welcome and thanks for the feedback

"Waki" <[email protected]> wrote in message
news:[email protected]...
> Thanks!!!!!
>
> "JulieD" wrote:
>
>> Hi Waki
>>
>> the first approach assumes that you don't have the sheets in your
>> workbook
>> yet and will add the sheet in and name it from your list of loan numbers
>> ....(instructions on using the code are at the bottom)
>> Assuming your loan numbers are in the range A2:A10 inclusive
>> Sub newws()
>> Dim arr As Variant
>> arr = Range("a2:a10").Value
>> For i = LBound(arr) To UBound(arr)
>> Set NewSheet = Sheets.Add
>> NewSheet.Name = arr(i, 1)
>> Next i
>> End Sub
>>
>> --------- this second option assumes that you have all the sheets in the
>> workbook and you want to name them as per the list in A2:A10
>>
>> Sub namesheets()
>> Dim arr As Variant
>> arr = Range("a2:a10").Value
>> For i = LBound(arr) To UBound(arr)
>> Sheets(i + 1).Activate
>> Sheets(i).Name = arr(i,1)
>> Next i
>> End Sub
>>
>> -------
>>
>> to use either of the above, right mouse click on a sheet tab and choose
>> view
>> code
>> this will display the VBE Window
>> choose insert / module from the menu and you'll get a piece of white
>> paper
>> on the right hand side of the screen
>> copy and paste the code above from the word sub to the words end sub into
>> the right hand side of the screen
>> press ALT & F11 to return to your workbook
>> ensure your loan numbers are in cells A2:A10 of the sheet you're viewing
>> and
>> choose tools / macro / macros from the menu
>> choose either namesheets or newws as appropriate and click on the run
>> button
>>
>> hope this helps
>> Cheers
>> JulieD
>>
>> "Waki" <[email protected]> wrote in message
>> news:[email protected]...
>> >I have a list of loan numbers that I want to use to rename worksheet
>> >tabs,
>> > any way to do that?
>>
>>
>>