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...

"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