making all Sheets Values only

  • Thread starter Thread starter WhytheQ
  • Start date Start date
W

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.
 
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
 
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 -
Click to expand...

Thanks Mr Malloy - I'll give it a go

Regards
Jason
 
Back
Top