Forum Discussion

SandyKP_84's avatar
SandyKP_84
Copper Contributor
Mar 24, 2024

Saving spreadsheet without the formulas

I normally save my spreadsheet in a pdf format for client which eliminates the working formulas for markups - client now requires EXCEL format - how do I save the clients section just with the final ...
Formulas and Functions
HansVogelaar's avatar
HansVogelaar
MVP
Mar 24, 2024

SandyKP_84 

You could run this macro:

Sub SaveColumnsWithoutFormulas()
    Dim wss As Worksheet
    Dim wst As Worksheet
    Dim wbk As Workbook
    Application.ScreenUpdating = False
    Set wss = ActiveSheet
    Set wbk = Workbooks.Add(xlWBATWorksheet)
    Set wst = wbk.Worksheets(1)
    wss.Range("A:E").Copy
    With wst.Range("A1")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
    End With
    Application.ScreenUpdating = True
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

Resources