Save Workbook In Values Only

[risk99]

Hi, my workbook has about 30 sheets, and each sheet has lots of formula and links. I'd like to save the workbook for the other people to see the info only. Is there a way that I can just save as in values? I don't want to protect or hide any of the cells. Thanks!

 

[PHV]

Create a new workbook and play with PasteSpecial

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[SkipVought]

Hi,

    Dim ws As Worksheet
    For Each ws In Worksheets
      With ws
        .Cells.Copy
        .[A1].PasteSpecial xlPasteValues
      End With
    Next

Skip,
[sub]
[red]Be advised:[/red] The dyslexic, agnostic, insomniac, lays awake all night wondering...
"Is there really a DOG?" [/sub]

 

[DaleWatson123321]

Here's an "assist" on Skip's routine...

This will leave the data on each sheet in a "normal" mode - i.e. NOT with all the cells of each sheet selected. I expect you'll prefer this un-selected option for the end-user.

Sub ConvertFormulas_ToValues()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Select
With ws
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1, 1).Select
End With
Next
Sheets(1).Select
[a1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub

Regards, Dale Watson