Customs views won't copy into new workbook

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a workbook with many worksheets, each worksheet has its own custom
views, however I use the following code to separate the worksheets into
indiviual workbooks before sending out to managers.

Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Fun Exp\" & w.Name
ActiveWorkbook.Close
Next w

Is their a way of also copying the individual worksheets custom views into
the new workbook for each file?

Many thanks

John
 
What do you mean by 'Custom Views'? do you have hidden rows/columns? Is it
the zoom value you want to copy? etc...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

CSV Help needed 4
multiple worksheets in a workbook, each saved on its own. 5
Split workbook 2
Code execution is correct but generates Error :The file you aretrying to open is in a different form 3
SHEE1. Duplicate all sheets, making 2 copies of ea. / 2. Add " E"and " F" to end of tab name. / 3. 3
Error message 1004 2
Copy a sheet from one workbook to another 1
Scattered array cells copy to scattered array cells another workbook 14

Back
Top