I cannot thank you enough!!! You are amazing and I really appreciate your
help! I get amazed at how you guys know all of this stuff. Very impressive
and to you it is probably a simple request :) To me it was mind boggling!

Sincerely,
Cheri

"Per Jessen" wrote:

Hi Cheri
This coce will skip sheets named Stats And Team.

Sheets("Stats").Range("A5:P22").Copy

For Each sh In ThisWorkbook.Sheets
If sh.Name < "Stats" And sh.Name < "Team" Then
Sheets(sh.Name).Select
Range("A6").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:D1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stats").Select
Range("A1:D1").Select
Application.CutCopyMode = False
End If
Next

Regards,
Per

On 12 Apr., 01:05, Cheri wrote:
Hi Per,

This was very helpful and I can see how it should work. The problem is that
I do not want any data copied to worksheet1 (named Team) nor worksheet2
(named Stats). It seems that the code I have wants to copy the data from the
STATS worksheet (which is what I want) but it also wants to paste the data
back into the STATS worksheet, which I of course do not want.

The code I input is:

Range("A5:P22").Select
Selection.Copy
For Each sh In ThisWorkbook.Sheets
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1:D1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stats").Select
Range("A1:D1").Select
Application.CutCopyMode = False

I apparently need to somehow skip the STATS worksheet but I don't know
exactly what is missing in this code.

Can you help?

Thanks!



"Per Jessen" wrote:
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- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -