Hi Cherie

This macro will loop through all worksheets in the active workbook.
I'll leave it to you to fill in the missing code :-)

For Each sh In ThisWorkbook.Sheets
'Here goes your code
Next

Best regards,
Per


On 11 Apr., 23:45, Cheri wrote:
I had requested information on how to name the tabs in a worksheet from a
list. *I got a great response:

Sub namesheets()
For i = 1 To 18
Sheets("sheet" & i).Name = Cells(i, "a")
Next i
End Sub

Now what I need to know how to do is change my macro that copies from one
sheet to the other to adjust to whatever the new tab name is.

My macro currently is:

Sub ClearSheets()
'
' ClearSheets Macro
' Macro recorded 6/2/2007 by n0082840
'

'
* * Sheets(Array("Cutter", "Emrick", "Goble", "Heiser", "Keigley",
"Leonard", "Newcomb", _
* * * * "Nobles", "Patton", "Riley", "Steinike", "Watkins", "Woodhall",
"Template")).Select
* * Sheets("Cutter").Activate
* * Range("A6:P23").Select
* * Selection.ClearContents
* * Range("A1:D2").Select
* * Sheets("Stats").Select
* * Range("A1:D1").Select
End Sub

Needless to say, this won't work with new names for each worksheet. *What
VBA code do I need to have it merely select the next worksheet regardless of
the name?

Thanks ahead of time!!
Cheri