To run across all sheets:

Sub SheetNamesD1()
Dim wks As Worksheet

For Each wks In Worksheets
wks.Activate
wks.Name = Range("D1").Value
Next wks
End Sub


"Michelle" wrote in message
...
I have a workbook with 75 worksheets (tabs) and would like the value in
field
D1 to be the name of the tab? Is this possible and how would I do this?
Please help. Thanks.