I think I'd just ignore that master worksheet--then I wouldn't care where it was
in the workbook.

Sub 50sheets()
Dim ws As Worksheet
For Each ws In Worksheets
with ws 'no need to get the name
if lcase(ws.name) = lcase("master") then
'do nothing
else
'do the work
.Activate
.Range("D8:O10").Select
Selection.FillDown

" wrote:

I have this macro . This calculates the formuals and copis it to all
the 50 tabs in the workbook, but I want to stop it at the 50th tab
because the 51th tab is the master data that i dont want to touch. here
is the code. Please help me how to stop the macro from going ot the
last tab.

Sub 50sheets()
Dim ws As Worksheet
For Each ws In Worksheets
With Worksheets(ws.Name)
.Activate
.Range("D8:O10").Select
Selection.FillDown
.Range("D8:O8").Select

.Range("D14:O18").Select
Selection.FillDown

.Range("D22:O25").Select
Selection.FillDown

.Range("D29:O33").Select
Selection.FillDown

.Range("D39:O41").Select
Selection.FillDown

.Range("D50:O63").Select
Selection.FillDown

.Range("D80:O80").Select
Selection.FillDown

End With
Next ws

Worksheets("1").Activate

End Sub

--

Dave Peterson