| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving rng of wrkshts to new workbook
Hey thanks! This worked great.
-- Thanks, PTweety "Gary''s Student" wrote: Sub picky() Set wbold = Workbooks("Book1.xls") Set wbnew = Workbooks("Book2.xls") wbold.Activate Sheets("Start").Activate i = 1 Do ActiveSheet.Move after:=wbnew.Sheets(i) i = i + 1 wbold.Activate If ActiveSheet.Name = "End" Then ActiveSheet.Move after:=wbnew.Sheets(i) Exit Sub End If Loop End Sub -- Gary''s Student - gsnu200818 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Moving Data between sheets in the same workbook and moving data between Workbooks. | Excel Worksheet Functions | |||
| copy cell a1 to 1 of 2 wrkshts depending on the value of other cel | Excel Programming | |||
| Moving Cell Information from one workbook into another workbook | Excel Worksheet Functions | |||
| Split into 2 wrkshts, now function doesn't work | Excel Worksheet Functions | |||
| pull data for a company with data in diff cells multiple wrkshts | Excel Worksheet Functions | |||
Threaded Mode
