You could begin with the following code. It doesn't do exactly what you
want, but should point you in the right direction.
Sub MoveSheets()
Dim SheetsToMove(1 To 3)
Dim WorkbookToMoveSheetsTo As Workbook
SheetsToMove(1) = "Sheet1"
SheetsToMove(2) = "Sheet3"
SheetsToMove(3) = "Sheet5"
Set WorkbookToMoveSheetsTo = Workbooks("Book3.xls")
With WorkbookToMoveSheetsTo.Worksheets
Worksheets(SheetsToMove).Move after:=.Item(.Count)
End With
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)
"emme" <(E-Mail Removed)> wrote in message
news:608ADBF0-FD13-4CCF-80A4-(E-Mail Removed)...
> Ok. I get a workbook with about 60 tabs monthly. I have to separate
> several
> tabs at a time not (in sequence) and copy them to a new work book that I
> rename according to which tabs it contains. there are about 15 of these
> workbooks. the tabs correspond to areas of responsibility and i have to
> then
> send each workbook to the corresponding manager. Is that any clearer?
>
> "Chip Pearson" wrote:
>
>> It is certainly possible, but you'd need to provide a LOT more detail.
>>
>>
>> "emme" <(E-Mail Removed)> wrote in message
>> news:CB817EF1-03F5-4AA3-8937-(E-Mail Removed)...
>> >i have to parse out tabs from a workbook every month. is there a way to
>> > automate that parsing in a macro? i am not a programmer. thanks!
>>
Similar Threads
