Save only 9 of 18 sheets

[Ron de Bruin]

Hi Rob

See this page for information about this
http://support.microsoft.com/default.aspx?scid=kb;EN-US;829070

If you need more help post back

 

[Guest]

Ron
Thank You for all your help. I really appreciate it. I figured out the
command button. It was Userform1 . Show
This app is really staring to take shape!
Thanks Again
RobJ

 

[Guest]

Ron
I added 6 more sheets, and now my save will not work. The sheets show up

 

[Ron de Bruin]

Hi rob

It is working for me
Send ([email protected]) me your test workbook with the code and userform and I will look at it

 

[Ron de Bruin]

Hi rob

You use a cell from the sheet CASH in your save line.
If you not select this sheet in the userform to copy to a new workbook
it can't find that cell.

You can use this to avoid this problem


ActiveWorkbook.Worksheets(arr).Copy

strdate = Format(Now, " mm-dd-yy")
With ActiveWorkbook
.SaveAs "C:\" & ThisWorkbook.Sheets("CASH ").Range("C5").Value & strdate & ".xls"
.Close False
End With

 

[Guest]

Got another problem... When I save my sheets any data in a list box is not
saved.