making all Sheets Values only

[WhytheQ]

Morning All,

Is this the quickest, and only way, of making all sheets in an
activeworkbook values only:

For Each mySheet In ActiveWorkbook.Worksheets
With mySheet
.Range("A1:BZ2000").Value = .Range
("A1:BZ2000").Value
End With
Next mySheet

Will it be quicker and take up less memory if I SET the activebook
into an object variable?

Any help appreciated
Jason.

 

[Patrick Molloy]

Sub valuizer()
Dim ws As Worksheet
For Each ws In Worksheets
With ws.UsedRange
.Value = .Value
End With
Next


End Sub

you can set calculation to manual and screen updatign ioff as well

 

[WhytheQ]

Sub valuizer()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws.UsedRange
        .Value = .Value
    End With
Next

End Sub

you can set calculation to manual and screen updatign ioff as well









- Show quoted text -

Thanks Mr Malloy - I'll give it a go

Regards
Jason