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" wrote in message
...
I have a list of loan numbers that I want to use to rename worksheet tabs,
any way to do that?