You could change the worksheet codename for Sheet 1 and 2 and test for that.
To change the code name, do the following

F11 from the workbook
Ctrl R to show the VBAProject
Select the worksheet for SHeet1
Press F4 to get the properties window
You should see something that looks like (NAME) with Sheet1 or something
similar in it.
Replace SHeet1 with a worksheet code name.
Do the same for your Sheet 2

I'm going to assume you've called them "MySheet1" and "MySheet2" for this
example.

Dim WS as worksheet

for each ws in ThisWorkbook.worksheets
if not ws.codename = "mySheet1" and _
not ws.codename = "mySheet2" then
'perform the actions on your sheets.
end if
next ws

HTH,
Barb Reinhardt
"Cheri" wrote:

Okay, that is fine. I will just use the code you gave me and let it paste to
each sheet, one at a time. Now, how should your code read so that sheets 1
and 2 are not selected?

Thanks again!

"Gord Dibben" wrote:

If you pre-select the sheets you need using CTRL + click you could change the
code to

Dim ws a s Worksheet
For Each ws In ActiveWindow.SelectedSheets
'transfer stuff
Next ws

Otherwise you would have to build an array of sheets based on some criteria.


Gord


On Thu, 28 Jun 2007 15:50:00 -0700, Cheri
wrote:

Geesh...I put my reply the wrong place :o)

Okay, adding on what I was doing since this did not work for me. My macro
selects the "Stats" worksheet and copies a range. It then selects a number
of tabs (can be different amounts depending on data copied). So, I may
select tabs 3-10 one time and 3-16 tabs another time depending on how many
tabs are in the particular workbook. (Tabs 1 and 2 would never be selected).
This way, I can copy the data to all subsequent sheets at one time. Is this
possible, or do I have to do each tab separately, using your code?

I appreciate your help!!!


"Gord Dibben" wrote:

Several ways to go about this.

In your code don't address the sheets by name or position.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
'do your tranfer stuff
Next ws

If you did want to rename all the sheets(not necessary if code above used) this
macro can do it.

Sub NameWS()
'name sheets from a unique list in Column A on first sheet
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub


Gord Dibben MS Excel MVP

On Thu, 28 Jun 2007 14:44:02 -0700, Cheri
wrote:

I have a macro set up that selects each worksheet and transfers data to each
one. The macro selects the worksheet by name, so if I change a worksheet
name, the macro will not run.

I don't know much about arrays or dim'ing but I know this can be done.

What I would really, really like is a macro to name all worksheets from a
list on one worksheet. Then I would like to run another macro to transfer
the data to each sheet no matter what the sheet tab is named.

I hope I made this clear enough!

Thanks,
Cheri