After verifying that the names in A2 are valid worksheet names, run:

Sub wwwwwnameit()
Dim w As Worksheet
For Each w In Worksheets
w.Activate
w.Name = Range("A2").Value
Next
End Sub
--
Gary''s Student


"Rob" wrote:

I have a workbook with 20+ worksheets and want each tab to reflect what is in
A2 of the respective worksheet.