Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Returning to original workbook
Anthony,
Dim OldBook as Excel.Workbook Set OldBook = ActiveWorkbook 'your code OldBook.Activate Regards, Jim Cone San Francisco, CA "Anthony Byrne" wrote in message ... ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ScreenUpdating = False Columns("a:K").Copy Range("B1").Select Set NewBook = Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Selection.PasteSpecial Paste:=xlPasteColumnWidths Range("A1").Select Application.CutCopyMode = False Do fName = Application.GetSaveAsFilename Loop Until fName < False NewBook.SaveAs Filename:=fName With ActiveWindow .DisplayGridlines = False .DisplayOutline = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = True End With End Sub In the above programme how do I return to the original workbook? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Returning to original view. | Excel Discussion (Misc queries) | |||
Original Workbook becoming Read-Only | Excel Discussion (Misc queries) | |||
Original Workbook | Excel Discussion (Misc queries) | |||
Keeping button pointing to original workbook | Excel Programming | |||
Preserve original workbook, but add new sheet? | Excel Programming |