Thank you sooo-- much!! Your code works great!!! My quality of life is
dramatically improved.

In answer to your question, yes, the summary sheet is always the first
sheet in the workbook.

Thanks again! I really appreciate it.

:-)

Amy

Try this

If LCase(sh.Name) = "summary" Then
str = Mid(mybook.Sheets(2).Name, 8, 9)

You can also use Mid for the other part instead of Right en Len

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message ups.com...
Thank you sooo-- much!! Your code works great!!! My quality of life is
dramatically improved.

In answer to your question, yes, the summary sheet is always the first
sheet in the workbook.

Thanks again! I really appreciate it.

:-)

Amy

Ron,

It worked like a charm! Thank you so- much!! That was a huge piece of
the puzzle!!

Thanks to you, I've now started to work on the next piece: automating
an advanced filter to pull data from one of the worksheets in the
master workbook and place it in each worksheet according to the task
name (as it appears in the tab for each worksheet).

So far, I'm not able to get the same results I have achieved for a
single case scenario. I thought it might work to simply change the
variable name to match yours and add in a "For Each" statement:
For Each sh In basebook.Worksheets
Sheets(str).Select
Range("A1").Select
Sheets("invoice_tracking").Range("a1:h500").Advanc edFilter
Action:= _
xlFilterCopy, CriteriaRange:=Sheets(str).Range("A17:A18"), _
CopyToRange:=Range("B20"), Unique:=False
Next sh

but it didn't. I will keep trying and post back if I'm able to figure
it out.

Any ideas would, of course, be greatly appreciated but regardless,
thanks again for solving the original problem I posted.

Best,
Amy

See
http://www.rondebruin.nl/copy5.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message oups.com...
Ron,

It worked like a charm! Thank you so- much!! That was a huge piece of
the puzzle!!

Thanks to you, I've now started to work on the next piece: automating
an advanced filter to pull data from one of the worksheets in the
master workbook and place it in each worksheet according to the task
name (as it appears in the tab for each worksheet).

So far, I'm not able to get the same results I have achieved for a
single case scenario. I thought it might work to simply change the
variable name to match yours and add in a "For Each" statement:
For Each sh In basebook.Worksheets
Sheets(str).Select
Range("A1").Select
Sheets("invoice_tracking").Range("a1:h500").Advanc edFilter
Action:= _
xlFilterCopy, CriteriaRange:=Sheets(str).Range("A17:A18"), _
CopyToRange:=Range("B20"), Unique:=False
Next sh

but it didn't. I will keep trying and post back if I'm able to figure
it out.

Any ideas would, of course, be greatly appreciated but regardless,
thanks again for solving the original problem I posted.

Best,
Amy