Rename all worksheets in workbook

I've found some code similar to, but not quite what I need. I have workbooks that contain various numbers of worksheets. I have one macro that replaces the contents of a cell using the name of the worksheet. Here's what I am looking for: I need to be able to run a macro that will rename all the worksheets in the workbook with the contents from a particular cell. I've tried a few different things but I'm new to this and of course they didn't work.
Thanks for your help, Roger

Assuming that the cell containing the name to be used for each sheet is in cell A1:

Sub SetSheetNames()
Dim Number, Counter
Number = ActiveWorkbook.Sheets.Count
For Counter = 1 To Number
Worksheets(Counter).Activate
Worksheets(Counter).Name = ActiveSheet.Range("A1").Value
Next Counter
End Sub

That should do the trick.

Awesome, thanks very much!