| Home |
| Search |
| Today's Posts |
|
#6
|
|||
|
|||
I thought you wanted HTML files?
Jim in Montana wrote: There were some hidden worksheets... A co worker of mine and me sat down and hammered this out... worked pretty well. We wrote this VB Macro in a new file.. ========= Sub Burst() Dim w As Worksheet Workbooks.Open Filename:="c:\temp\alldepts.xls" 'default filename For Each w In Sheets() If w.Visible Then w.Copy Workbooks(Workbooks.Count).SaveAs "c:\temp\" & w.Name Workbooks(w.Name & ".xls").Close Else 'do nothing End If Next w Workbooks.Close End Sub ========= Thanks for your ideas and help !!! -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Make Change Case in Excel a format rather than formula | Excel Worksheet Functions | |||
| Error trapped only while stepping through the code - Not triggered when run | Excel Discussion (Misc queries) | |||
| Opening a file with code without a set file name | Excel Discussion (Misc queries) | |||
| Opening a file with code without a set file name | Excel Discussion (Misc queries) | |||
| Error trapped only while stepping through the code - Not triggered when run | Excel Discussion (Misc queries) | |||
Threaded Mode
