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

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

Hi Dave,
This doesnt work. Can you explpain this more . I tried to use it but it
crashed.

Thanks

I think you'll have to post the code you used.

And did you change this line:

if lcase(ws.name) = lcase("master") then

To use the real name of your "master" worksheet--I guessed that its name was
"master".

" wrote:

Hi Dave,
This doesnt work. Can you explpain this more . I tried to use it but it
crashed.

Thanks

--

Dave Peterson