Thanks mike for the speedy reply,
work perfect

regards

Mike H wrote:
One way. This takes the values from the range A5 down and uses those values
to rename all the worksheets in the workbook. If there is a blank cell
before all the sheets are renamed then the sub ends. Right click the sheet
tab with your list in, view code and paste this in:-

Sub renameit()
x = 5
On Error GoTo 100
For Each Worksheet In Worksheets
Worksheet.Name = Cells(x, 1).Value
x = x + 1
Next
100
End Sub

Mike

Hi

[quoted text clipped - 6 lines]

brian

--
Message posted via http://www.officekb.com