Customs views won't copy into new workbook
What do you mean by 'Custom Views'? do you have hidden rows/columns? Is it
the zoom value you want to copy? etc...
"John" wrote:
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
|